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COMPONENT  BREAKOUT  COMPUTER  MODEL 


1.0  Executive  Summary 

\ 

Component  breakout  is  the  process  whereby  the  government 

purchases  a  component  that  was  previously  provided  as  contractor 

* 

furnished  equipment  and  provides  the  item  to  the  prime 
contractor  to  be  incorporated  into  the  end  item.  DOD  policy 
concerning  breakout  states  that  it  should  be  used  if  substantial 
net  cost  savings  will  probably  be  achieved  and  this  action  will 
not  jeopardize  quality  and  performance.  Concentration  of 
breakout  effort  should  be  on  the  components  of  the  high  dollar 
value  systems,  since  these  represent  the  highest  costs  and  offer 
the  potential  for  the  greatest  savings.  In  order  to 
realistically  estimate  the  savings  associated  with  component 
breakout,  the  government  must  be  able  to  compute  the  offsetting 
costs  associated  with  the  government  furnished  equipment 
operation. 

This  computer  model  is  a  user-friendly,  menu-driven  tool 
that  can  be  easily  used  to  estimate  component  breakout 
offsetting  costs.  In  addition  an  estimate  of  the  lost 
opportunity  costs.  the  potential  loss  to  the  government  of 
devoting  time  and  effort  to  components  at  the  expense  of  the 
total  system,  are  included  in  the  results. 

This  maintenance  package  for  the  model  consists  of  a 
computer  disc  (floppy  disc)  and  a  maintenance  manual.  The  disc 
contains  the  component  breakout  model  (CBOM)  in  two  forms, 
compiled  and  uncompiled  basic  programs.  Each  will  provide  the 


user  with  the  same  screen  and  printer  outputs.  The  CBOM  can  be 
operated  on  any  IBM  or  IBM  compatible  personal  computer  or  on 
the  current  Zenith  personal  computers.  The  user  should  assure 
that  the  disc  he/she  is  using  is  compatible  with  his/her 
computer.  The  model  was  validated  by  using  current  studies 
completed  for  or  by  the  Aeronautical  Systems  Division  (ASD)  and 
the  Air  Force  Logistics  Command  (AFLC)  at  Wr ight-Patterson  AFB. 
Ohio.  Several  ASD  personnel  have  exercised  the  model  and  are 
pleased  with  its  ease  of  operation  and  clarity  of  results. 


2.0  The  Basics  of 

the  Model 

2.1  General:  The 

computer  disc 

that 

is  provided 

with 

this 

manual  contains  the  component  breakout 

model  (CBOM)  in 

two 

forms.  compiled 

and  uncompiled 

basic 

programs . 

Each 

wi  11 

provide  the  user  with  the  same  screen  and  printer  outputs.  The 
CBOM  is  composed  of  the  following  sub-programs  and  interact  with 
each  other  as  shown  in  Figure  1. 


ENTERR 


CALCULI 


NOTE:  The  uncompiled  subprograms  end  in  double  letters:  NN.  RR. 

and  UU.  The  compiled  versions  end  in  NY.  RY.  and  UY. 

Figure  1.  Submodels. 
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2.1.1  Subprograms: 


********************************************** 

*  * 

*  WARNING 

*  * 

*  Assure  that  CapsLock  is  on.  Use  only  * 

*  capital  letters  with  the  model.  * 

*  * 

********************************************** 

2. 1.1.1  BEGINN  (BEGINY) :  This  is  the  subprogram  that 
includes  the  model  assumptions  and  general  help  information. 
This  subprogram  automatically  loads  the  ENTER  (ENTERY)  file  for 
data  entry  or  changing. 

2. 1.1. 2  ENTERR  (ENTERY):  This  is  the  subprogram  that  enables 

the  user  to  enter  data  concerning  the  specific  component 

breakout  scenario.  This  subprogram  includes  the  capability  to 
view  the  data  and  data  screens,  to  create  new  data  files,  and  to 
modify  previously  created  data  files.  Each  data  entry  question 
is  explained  by  use  of  individual  help  screens  for  each 

question.  Upon  completion  of  the  data  entry  the  user  can  either 
view  the  entered  data  or  begin  the  calculations. 

2. 1.1.3  DATINN  (DATINY) :  This  subprogram  can  be  used  to 
access  each  of  the  data  files  on  the  floppy  disc  and  to  display 
these  data  with  the  appropriate  questions  on  the  screen  and  on 
the  printer.  Upon  completion  of  the  data  display  the 
subprogram  automatically  loads  and  runs  the  calculations 
subprogram. 
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2.1. 1.4  CALCUU  (CALCUY):  This  subprogram  is  used  to 

calculate  the  costs  of  component  breakout.  The  costs  for  each 

activity  associated  with  component  breakout  is  tabulated.  The 

\ 

lost  opportunity  costs,  which  are  the  difference  between  the 
budget  per  hour  per  person  on  the  prime  contract  minus  the 
difference  between  the  prime  CBO  cost  and  the  new  contractor 
cost  divided  by  the  hours  and  persons  required  for  the  CBO 
effort.  This  subprogram  provides  the  user  with  the  options  of 
printing  the  results  or  viewing  them  on  the  screen.  Upon  the 
completion  of  the  results  output  the  user  can  go  to  the  BEGINN 
(BEGINY).  the  DATINN  (DATINY).  the  ENTERR  (ENTERY).  restart  the 

calculations,  or  stop  the  computer  operation. 

2.1.2  Non-Compiled  Models:  The  non-compiled  models  require 

that  BASIC  be  loaded  on  the  personal  computer.  First  load  BASIC. 
After  the  normal  BASIC  prompts  appear  place  the  CBOM  Disc  into 
the  A  drive.  Now  type  LOAD  "BEG INN” . R  (Ret).  The  model  will  now 
prompt  the  user  with  all  the  necessary  information  to 

intelligently  operate  the  CBOM.  Should  the  user  wish  to  access  a 
particular  submodel,  merely  type  LOAD  "submodel  name"  and  Return. 

2.1.3  Compiled  Models:  The  compiled  models  can  be  accessed 

from  the  DOS  prompt,  A> .  With  the  computer  on.  place  the  CBOM 

disc  in  the  A  drive.  Assure  the  the  prompt  is  A>.  Now  type 
BEGINY  (Return).  The  model  will  now  prompt  the  user  with  all  the 
necessary  information  to  intelligently  operate  the  CBOM.  Access 
to  the  other  submodels  is  possible  by  typing  the  appropriate 
name  after  the  DOS  prompt  A> . 
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2.1.4  Input  Data:  The  data  that  is  input  into  the  model  via 
the  ENTERR  subprogram  can  be  view  either  on  the  screen  or  on  the 
printer.  Should  the  user  require  an  expanded  definition  they  are 
included  in  the  help  information  in  the  ENTERR  subprogram. 

2.1.5  Model  Results:  The  execution  of  the  calculation 
program,  either  CALCUU  OR  CALCUX.  will  reflect  the  hours  used  in 
each  activity,  the  cost,  the  inflated  costs,  the  costs  of  the 
fringes  associated  with  costs  of  employee  benefits,  and  the 
total  costs.  These  total  coots*  ace  the  summation  of  the  inflated 
costs  and  the  fringe  benefits.  Note  that  this  output  includes 
the  run  name  and  the  date  of  the  run. 

The  following  are  short  definitions;  of  the  data  in  the 
output : 

SCREENING  The  identification  and  selection  of  the 

items  for  CBO. 

PRICE  ANALYSIS  The  act  of  estimacing  a  fair  price  for  the 

CBO. 


SOURCE  APP 

SOURCE  DEV 
SOURCE  SEL 
REVERSE  ENG 


FIRST  ARTIC 
CONTRACTING 


This  is  the  act  of  approving  new  sources 

that  can  supply  the  needed  CBO  items. 

/ 

This  is  the  acc  of  developing  new  sources. 
This  is  the  act  of  selecting  a  new  source. 
This  is  reverse  engineering,  a  technique 
for  engineering  from  the  final  item 
backwards . 

This  is  the  first  article  evaluation. 

This  is  the  total  SPO  contracting 
activity. 
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GENERAL  SPO 


This  is 


the  general 


SPO  cost  for  the  CBO 


items . 

PRE-AWD  SVY 

\\ 

SPO  TOTALS  ' 

This  is  the  pre-award  survey. 

This  is  the  total  of  the  SPO  costs  for  the 

CBO  items  in  the  various  columns  (the 

summation  of  the  columns.) 

SECURITY 

This  is  the  cost  of  CBO  security. 

EEO  SUPPORT 

This  is  the  cost  of  equal  opportunity 

actions  associated  with  the  CBO. 

SOC-ECON  CST 

This  is  the  socio-economic  costs 

associated  with  the  CBO. 

WARRANTEE  CST 

This  is  the  cost  of  warrantees. 

TERMIN  CST 

This  is  the  termination  cost  of  the  prime. 

NEW  EQUIP 

This  is  the  cost  of  purchasing  new 

equipment  by  the  new  contractor. 

FAC  MOD  CST 

This  is  the  cost  of  modifying  facilities. 

ADMIN  &  AUD 

This  is  the  costs  associated  with 

administrative  and  audit  cost  associated 

with  CBO. 

TRANSPORTATION 

This  is  the  cost  of  transporting  the  CBO 

from  the  new  contractor  facility  to  the 

prime . 

SOLICITATION 

This  is  the  cost  of  the  solicitation 

preparation. 

TOTAL  CBO  COST 

This  is  the  summation  of  the  column  costs 

and  reflects  the  total  cost  of  the  CBO 

items  to  the  government. 
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SAVINGS  This  is  the  savings  to  the  government  and 

is  determined  by  subtracting  the  TOTAL  CBO 
COST  from  the  difference  between  the 
prime  cost  and  the  new  contractor  cost. 

LOST  OPT  COST  This  is  the  difference  between  the  average 

value  of  SPO  personnel's  time  devoted  to 
CBO  rather  than  the  SPO  prime  contract. 

THEO  SAVINGS  This  is  the  theoretical  savings  that 

includes  the  SAVINGS  and  the  LOST  OPT  COST. 

2.2  Equipment  Required:  The  Component  Breakout  Model  runs  on 

the  IBM  Personal  Computer  or  the  Zenith  100.  148  or  other  IBM 

compatible  equipment  with  a  minimum  of  128K  of  RAM.  The  DOS  4.2 
or  later  versions  may  be  required  on  other  than  IBM  equipment. 

2.3  Personnel  Requirements:  Users  need  not  be  familiar  with 

BASIC  programming,  however,  they  should  be  generally  familiar 
with  the  machine  they  will  use.  It  is  imperative  that  users  be 

very  familiar  with  the  operation  of  the  System  Program  Office 

that  is  using  the  model  to  determine  the  economic  feasibility  of 

component  breakout.  Questions  that  must  be  answered  in  the  model 
will  require  intimate  knowledge  of  the  entire  CBO  operation. 

3.0  Messages 

3.1  Machine  Error  Messages:  Refer  to  your  computer  manuals  and 

specifically  the  operating  system  and  BASIC  error  message 

sections . 

3.2  Model  Error  Messages:  These  messages  are  caused  by  an  error 
in  the  operation  of  the  model.  The  user  can  refer  to  the  machine 
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error  messages  noted  in  3.1.  above.  The  following  is  a  listing 
of  the  most  common  error  messages  that  the  users  may  see. 

all  storage  space  on  the  disc  is 
used.  Make  another  copy  of  CBOM  and 
begin  again  using  the  copy, 
select  a  new  file  name  and  continue, 
a  file  that  does  not  exist  was 
called.  Check  the  file  name, 
print  out  the  DATINN  or  DAT  I  NX  file 
and  check  for  errors.  Typically  this 
happens  when  the  ENTERY  or  ENTERR 
program  is  interrupted  before  all  data 
are  entered.  Re-enter  all  data  for 
the  data  file. 

NOTE:  WHEN  ENTERING  DATA  INTO  A  PREVIOUSLY  PREPARED 
FILE  USING  THE  ENTERR  OR  ENTERY  PROGRAM  IT 
WILL  BE  NECESSARY  TO  TYPE  IN  THE  ENTIRE  NEW 
NUMBER.  THE  PROGRAM  WILL  ENTER  EXACTLY  WHAT 
IS  TYPED  NOT  WHAT  IS  ON  THE  SCREEN. 

4.0  Maintenance 

4.1  Non-Compiled  Subprograms:  The  non-compiled  subprograms  can 
be  modified  using  normal  BASIC  procedures  as  outlined  in  the 
BASIC  manuals  that  are  provided  with  the  BASIC  software.  It  is 
assumed  that  any  person  that  attempts  to  modify  these 
subprograms  should  be  literate  in  the  BASIC  language  and 
therefore,  the  standard  BASIC  procedures  will  not  be  included  i-n 
this  manual. 


DISK  FULL 

FILE  ALREADY  EXISTS 
FILE  NOT  FOUND 

OUT  OF  DATA 
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4.1.1  BEGINN:  Both  help  and  assumption  information  can  be 
altered  using  normal  BASIC  procedures.  However,  should  either  be 
expanded  significantly,  assure  that  only  one  screen's  worth  of 
data  is  presented  for  each  screen.  Further  modifications  to  the 
model  may  include  the  option  to  access  any  of  the  other  three 
subprograms  rather  than  just  the  ENTERR  subprogram.  This  will 
reguire  the  development  of  an  additional  screen.  If  the  initial 


welcome 

screen 

remains 

on  the 

screen  too 

long 

or 

not  long 

enough. 

change 

the  2000 

value 

on  line  460 

to 

less 

or  more. 

respectively. 

4.1.2 

ENTERR:  The 

ENTERR 

program  contains 

all 

of  the 

screens  that  are  reguired  to  enter  the  model  data.  The  model 
currently  contains  seven  screens.  If  it  is  necessary  to  increase 
the  number  of  screens  it  will  not  be  necessary  to  increase  the 
dimension  statements,  which  are  set  to  accept  nine  screens.  The 
model  is  currently  structured  to  accept  two  additional  screens 
or  a  total  of  sixteen  additional  guestions.  This  can  be 
accomplished  by  deleting  the  GOTO  on  line  6140.  If  any  question 
is  changed  so  that  the  response  is  different  (y/n  versus  a 
number  response),  then  it  will  be  necessary  to  change  the  GOSUB 
of  the  appropriate  entry.  If  the  data  input  is  not  selected  for 
viewing.  then  this  subprogram  will  automatically  open  the 
calculations  (CALCUU)  model.  Future  modifications  of  the  CBOM 
may  include  changes  to  these  options  for  the  ENTERR  subprogram. 
4.1.3  CALCUU:  The  CALCUU  subprogram  contains  all  of  the 
equations  and  parameters  that  with  the  entered  data  computes  the 
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results.  If  any  questions  are  changed  in  ENTERR.  then  it  may  be 
necessary  to  alter  the  value  conversions  listed  on  lines  650  to 
780.  Other  changes  can  be  made  using  normal  BASIC  procedures. 

4.1.4  DATINN:  The  DATINN  program  contains  the  questions  and' 
the  data  input  in  a  form  easy  to  read.  This  program  is  simple 
and  can  be  changed  using  normal  BASIC  procedures. 

4.1.5  Data  Files:  The  data  files  are  produced  whenever  the 
ENTERR  subprogram  is  executed.  As  more  and  more  data  files  are 
added  to  the  disc  it  can  become  filled.  However,  before  this 
occurs  more  files  will  be  included  on  the  disc  than  can  be 
properly  displayed  each  time  the  user  must  identify  a  data  file. 
When  this  occurs  copy  the  data  files  to  a  new  disc  and  then 
erase  these  files  from  your  CBOM  disc.  If  these  files  are  needed 
later  they  can  then  be  copied  to  the  CBOM  disc. 

4.2  Compiled  Subprograms:  All  that  has  been  stated  above 
concerning  the  non-compiled  subprograms  and  data  files  will  have 
to  be  accomplished  if  the  present  subprograms  are  to  be 
modified.  Once  the  above  has  been  accomplished  then  the  normal 
compiling  functions  will  have  to  be  completed  in  order  to  have  a 
current  compiled  version  of  the  CBOM.  Unfortunately.  since 
there  are  small  differences  in  the  compiled  and  non-compiled 
BASIC  programs.  it  has  been  necessary  to  identify  the 
non-compiled  versions  with  the  double  letter  endings  for  the 
program  names  and  the  Y  ending  for  the  compiled  or  to  be. 
compiled  subprograms.  This  means  that  changes  made  to  the 
non-compiled  programs  will  have  to  be  also  changed  on  the  to  be 
compiled  programs.  In  addition.  be  aware  that  the  CBOM  is 
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provided  in  two  compiled  versions,  one  for  the  IBM  and  IBM 
compatibles  and  one  for  the  Zenith  personal  computers  that  are 
not  IBM  compatible.  Each  disc  is  properly  marked  to  indicate 
type  of  compilation. 

5.0  Operator's  Manual  and  Final  Report 

The  Operator's  Manual  contains  the  information  necessary  to 
intelligently  operate  the  Component  Breakout  Model.  This  manual 
includes  the  general  model  assumptions  and  the  descriptions  of 
all  of  the  cost  factors  of  the  model.  Normally  a  disc  with  the 
compiled  version  of  the  model  is  included  with  this  manual. 

The  Final  Report  contains  an  executive  summary.  an 
extensive  bibliography,  and  a  literature  review  of  the  component 
breakout  information  that  was  available  during  early  1987. 

These  documents  and  computer  discs  for  the  Component  Break 
Out  Model  can  be  obtained  from  PJSA.  Inc..  1390  Rawlings  Dr.. 
Fairborn.  Ohio  45324.  (513)  878-4586  or  Universal  Energy 
Systems.  Inc..  4401  Dayton-Xenia  Rd..  Dayton.  Ohio  45432.  (513) 
426-6900. 

27201 
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A.  COMPUTER  PROGRAMS 


A. 1  BEG INN 


A. 1.1 


REM  . BEG  INN.  BAS . 

REM  THIS  IS  THE  START  OF  THE  MAIN  PROGRAM 
0  REM 
0  KEY  OFF 

0  REM  *********** #####**#*####*#*##*###***##* fc**#***#* 


* 

* 

* 

* 


COMPONENT  BREAKOUT  COST  ESTIMATION  MODEL 


0  REM 
0  REM 
0  REM 
0  REM 
00  REM 
10  REM 
20  REM  * 

30  REM  * 

40  REM  * 

50  REM  * 

J  REM  *****  ***X%%K*XX******  t  ****ii;**tX**t**X%Xt  *.****'*  **%*%%****Xt  ****■%**%*.%** 


* 

* 


This  model  was  developed  by  PJSA,  Inc.  under  sub— contract 
with  Universal  Energy  Systems,  Inc.  -for  the  Air  Force 
Business  Research  Management  Center  in  1986—1987. 


The  model  is  suplemented  with  both  a  User's  Manual  and 
and  a.  Mai ntenance  Manual. 


70  CLS 
SO  KEY  OFF 

90  REM  THIS  IS  A  SQUARE  SCREEN  PROGRAM 
00  CLS 

10  LOCATE  3,5 
20  PRINT  " 


'////////////////////////////////// 


30  LOCATE  4,5 
40  PRINT  "  ////////////A 

/  /  !  " 

50  LOCATE  5,5 

60  PRINT  "  /////////////////////////////////////////////////////////////////// 
//','• 

70  LOCATE  6,5 

R( )  PR  T  NT  ■■  <  *  •  i  i  i  i  i  i  i  i  •  •  •  i  i  •  i  it  i  i  i  i  i  i  i  i  •  i  i  i  i  «  i  i  i  i  i  i  i  i  i  i  i  •  i  i  i  i  i  i  i  i  i  i  i  . . 

°  *  \  1 1 1 i  ■  ■  •  i  i  *  •  i  i  i  i  i  i  i  <  i  i  i  <  i  i  i  i  i  i  i  i  i  i  i  i  i  i  *  i  i  i  i  i  i  i  i  i  <  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i 

i  /  i  ii 
i  /  i 

90  FOR  I  =  7  TO  23 
00  LOCATE  1,5 
10  PRINT  "  !  ! 

I  /  I  II 
I  /  I 

20  NEXT  I 

30  LOCATE  8,5 

Aj  PRINT  " ! !  WELCOME  TO 


50  LOCATE  13,5 


A. 1.2 


It  I  I 
I  I 


COMPONENT  BREAKOUT 


iuO  PRINT 
'  i  / : " 

370  LOCATE  17,5 

330  PRINT  " ! !  OFFSETTING  COST 

i  i  /  i  II 
I  i  /  I 


390  LOCATE  21,5 
400  PRINT  " ! ! 

i  i  /  I  II 
I  i  /  i 

410  LOCATE  22,5 

420  PRINT  "!!  by  PJSA,Inc. 

I  I  /  l  il 
I  I  /  I 

430  LOCATE  24,5 


(vtoncri  t hie 


JAN  8 


440  PRINT 


I  I  /  II 
I  I  / 

450  BEEP 

460  1=1:  FOR  I  =  1  TO  2000: NEXT: CLS 

470  REM  THIS  IS  THE  MODEL  ASSUMPTIONS  SECTION 

480  CLS 

490  REM 

500  LOCATE  10, 10 

5 1 0  PR  INT  *  ************ 

520  LOCATE  11,10 
530  PRINT  "* 

540  LOCATE  12,10 

r  0  PrINT  "#  DO  YOU  WISH  TO  VIEW  THE  MODEL  ASSUMPTIONS?  (Y/N) 

5oO  LOCATE  13, 10 
570  PRINT  "* 

580  LOCATE  14,10 


590  PRINT  "**)|c*****)K**)|t**j|t)(t*****3K)|C3K***********)K***!|t*!K*i|c********)|t***)|t****Hc* 

600  LOCATE  17,  30:  BEEF- 

610  PRINT  "NOTE: : : :  Y  MEANS  YES" 

620  LOCATE  19,30 

630  PRINT  "  N  MEANS  NO" 

640  LOCATE  12, 68: PRINT  ">  " 

650  C$=INKEY$:IF  C$=""  THEN  GOTO  650  ELSE  GOTO  660 
660  IF  C*="Y"  THEN  GOTO  690  ELSE  GOTO  670 
670  IF  C$="N"  THEN  GOTO  980  ELSE  GOTO  680 
680  GOTO  640 


690  REM 

700  REM  THIS  IS 
710  KEY  OFF: CLS 
720  LOCATE  3,25: 
730  LOCATE  5,10: 
740  LOCATE  7, 10: 
750  LOCATE  9,10: 
760  LOCATE  10,15 
770  LOCATE  12,10 
780  LOCATE  13,15 
790  LOCATE  15,10 


THE  MODEL  ASSUMPTION  DATA  SCREEN  SECTION 


PRINT  "THESE  ARE  THE  MODEL  ASSUMPTIONS:" 
PRINT  "THE  DESIGN  IS  STABLE." 

PRINT  "THE  DATA  PACKAGE  IS  AVAILABLE." 

PRINT  "QUALITY  AND  RELIABILITY  OF  COMPONENT 
: PRINT  "WITHOUT  END  ITEM  CONTRACTOR  SUPPORT. 
.-PRINT  "TECHNICAL  SUPPORT  IS  MINIMAL  OR  CAN 
: PRINT  "THE  GOVERNMENT." 

: PRINT  "LOGISTICS  PROBLEMS  ARE  MINIMAL." 


CAN  BE  RESOLVEI 

•  l 

BE  FURNISHED  B' 


A. 1.3. 


Sou  LOCATE  17, lU: PRINT  "ADMINISTRATION,  MANAGEMENT,  AND  PERFORMANCE  OF  THE  " 

■O  '  >  LOCATE  18,15:PRINT  "OF  THE  END  ITEM  CONTRACTOR  NOT  AFFECTED." 
t*:U  LOCATE  20,lU:  PRINT  "DELIVERY  OF  THE  END  ITEM  NOT  JEOPARDIZED  " 

S30  LOCATE  25, 25: PRINT  "PRESS  ANY  KEY  TO  CONTINUE...." 

540  A$= INKEYS: IF  AS="  "  THEN  GOTO  840  ELSE  GOTO  850 

5^0  CLS:L0CA1E  3, 25: PRINT  "THESE  ARE  THE  MODEL  ASSUMPTIONS  (CONT. ) " 

560  LOCATE  5,  10:  PRINT  "ADVANCE  PROCUREMENT  FUNDS  ARE  AVAILABLE,  IF  REQUIRED.*" 
!7<;’  LOCATE  7, lO: PRINT  "ANOTHER  SOURCE  IS  AVAILABLE  TO  PROVIDE  COMPONENT." 

5S0  LOCATE  9, 10: PRINT  "THE  COMPONENT  HAS  BEEN  OR  MAY  BE  A  GFE  ITEM." 

590  LOCATE  11, 10: PRINT  "THE  GOVERNMENT  WILL  ASSUME  THE  ROLE  OF  PRIME  CONTRACTOR 


*00  LOCATE  12,15:PRINT  "FOR  THIS  COMPONENT." 

■10  LOCATE  14, 10: PRINT  "A  SIGNIPICANT  COST  SAVINGS  WILL 
’20  LOCATE  15, 15: PRINT  "COMPONENT  BREAKOUT." 

’30  LOCATE  17,  15:  F’R  I  NT  "SOURCE - ASPR  1-326. 4B. 

>40  LOCATE  25,25 

>50  PRINT  "PRESS  ANY  KEY  TO  CONTINUE . " 

>60  AS= INKEYS:  IF  AS=" "  THEN  960  ELSE  GOTO  9130 
>70  KEY  OFF 

“SO  REM  THIS  IS  THE  MODEL  ASSUMPTIONS  SECTION 
'90  CLS 


RESULT  FROM  THIS 


II 


000  REM 

010  LOCATE  10,10 


^  ^  ^  ^T  "  *  *  ***************  *  *  *  * 

30  LOCATE  11,10 
040  PRINT  "* 

050  LOCATE  12,10 

060  PRINT  "*  DO  YOU  WISH  TO  VIEW  THE  HELP  INFORMATION'?  (Y/N)  * 

070  LOCATE  13,10 


li 


M 


080  PRINT  "* 

090  LQCATE  14,10 

100  PRINT  ,,**'******t****t*t*tik**iHillit*t*t**tttttt*tt***iH*t**t*t*.**iHt** 

110  LOCATE  17, 30:  BEEF- 

120  PRINT  "NOTE::::  Y  MEANS  YES" 

130  LOCATE  19,30 

140  PRINT  "  N  MEANS  NO" 

150  LOCATE  12,68:  PRINT  ">  " 


* 

******** 


1 1 


1 1 


160  DS-INKEYS: IF  DS=""  THEN  GOTO  1160  ELSE  GOTO  1170 
170  IF  DS="Y"  THEN  GOTO  1200  ELSE  GOTO  1180 
180  IF  D$="N"  THEN  GOTO  1370  ELSE  GOTO  1190 
190  GOTO  1150 


A. 1.4. 


200  REM 

210  REM  THIS  IS  THE  MODEL  HELP  INFORMATION  SCREEN  SECTION 
•  220  KEY  OFF : CLS 

230  LOCATE  3, 20: PRINT  "THIS  IS  THE  GENERAL  HELP  INFORMATION  SECTION" 

240  LOCATE  4 , 20;  F'RI  NT  ,,a^aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaah 

-250  LOCATE  6,15:PRINT  "THIS  MODEL  ASSISTS  IN  THE  COMPUTATION  OF  THE  OFFSETTING' 


260  LOCATE  8, 15: PRINT  "AND  LOST  OPPORTUNITY  COSTS  OF  COMPONENT  BREAKOUT." 

-70  LOCATE  11, 15: PRINT  "THE  MODEL  IS  USER  FRIENDLY  AND  WILL  PROMPT  THE  USER  AT1 


280  LOCATE 
290  LOCATE 
300  LOCATE 


13, 15: PRINT 
15, 15: PRINT 
17, 15: PRINT 


"EACH  STEP.  GENERALLY  THE  CARRIAGE  RETURN  NEED  NOT  BE  ' 
"PRESSED  WHEN  ANSWERING  QUESTIONS  Y  (FOR  YES)  OR  N  (FOR' 
"NO).  HOWEVER,  WHEN  ENTERING  DATA  IT  WILL  BE  NECESSARY’ 


310  LOCATE  19, 15: PRINT  "TO  PRESS  THE  CARRIAGE  RETURN." 

320  LOCATE  22, 15: PRINT  "HELP  INFORMATION  IS  AVAILABLE  FOR  EACH  DATA  ENTRY" 
330  LOCATE  24, 15: PR I NT  "QUESTION." 

340  LOCATE  25,25 

350  PRINT  "PRESS  ANY  KEY  TO  CONTINUE . " 

360  A$=INKEY$: IF  A$=""  THEN  GOTO  1360  ELSE  GOTO  1370 
370  REM 
30  CLS 

9 0  LOCATE  15,25 

100  PRINT  "THE  MODEL  IS  LOADING..." 

110  LOCATE  20,30 

120  PRINT  "PLEASE  BE  PATIENT _ " 

130  PUN  " ENTER Y" 

140  END 


A. 1.5. 


( 


A.  COMPUTER  PROGRAMS 


A. 2  ENTERR 


A. 2.1. 


0  REM  . ENTERR.BAS . 

:0  REM . THIS  IS  THE  DATA  ENTRY  PROGRAM 

:0  REM 


•0  DIM  A 1  ( 9 )  , A2 ( 9 )  , A3  <  9 )  ,  A4  ( 9 )  ,  A5  < 9 )  , A6 ( 9 )  ,  A7  ( 9 )  , A8 ( 9 ) 

»0  DIM  A1T$ (?) , A2T$(9) , A3T$(9) . A4T*(9) , A5T$(?) , A6T$<?> , A7T$<?) , A8T*(9) 

•5  DIM  A1  $  (?)  , A2$(9)  , A3$(9)  ,A4$(9)  , A5$(9)  ,A6$<9)  , A7$(9)  ,  A8*(9) 

>0  REM 
'0  KEY  OFF 
50  CLS 

>0  LOCATE  3  s  10 

00  PRINT  "****** ********************** *********************** ******* *******" 
10  LOCATE  4,10 

20  PRINT  "*  *" 

30  LOCATE  5,10 

40  PRINT  "*  THE  FOLLOWING  FILES  ARE  AVAILABLE  * 

50  LOCATE  6,10 

60  PRINT  "*  *" 

.70  LOCATE  7,10 

80  PRINT  "XU******************************************  *********************  " 
.90  LOCATE  9, 5: FILES  " * . DAT" 

JOO  LOCATE  18, 15: PRINT  "NOTE:  ENTER  A  4  LETTERS  FOLLOWED  BY  1  NUMBER" 

?10  LOCATE  25,  15:  PRINT  " 

’20  LOCATE  19, 22: PRINT  "FOLLOWED  BY  .DAT  (FLUS  CARRIAGE  RETURN)" 

D  LOCATE  21 , 20: PRINT  "EXAMPLES:  PR0D4.DAT  EXAM8.DAT  TESTS. DAT" 

?40  LOCATE  15, 59: COLOR  0,7: PRINT"  ": COLOR  7,0 

’50  LOCATE  15, 5: BEEP 

’60  INPUT  "WHAT  PROGRAM  DO  YOU  WISH  TO  RUN  (PROGRAM  NAME /NUMBER) " ; NAMNO$ 

’70  LOCATE  23, 15: PRINT  "IS  THIS  A  NEW  PROGRAM  ?  ( Y/N) ": LOCATE  23,47 
’80  COLOR  0,7:  PRINT  "  ".-COLOR  7,0 

290  A$»INKEY$:IF  A'4i=""  THEN  GOTO  290  ELSE  GOTO  300 
500  IF  A$="N"  THEN  GOTO  310  ELSE  GOTO  340 
510  NOLD$="N" 

520  GOSUB  930 
530  GOTO  380 

540  IF  A$="Y"  THEN  GOTO  370  ELSE  GOTO  350 

550  BEEP: GOTO  270 

560  REM 

570  NOLD$="Y" 

530  REM  THIS  IS  THE  BEGINNING  OF  THE  QUESTIONING  . . 

590  OPEN  NAMNOifc  FOR  OUTPUT  AS  #1 

100  REM  THIS  IS  THE  START  OF  SCREEN  1. 

110  CLS 

120  K= 1 : HP=0 : N0M=0 
130  GOSUB  2870 
140  LOCATE  3,5 

150  PRINT  " !  PLEASE  ANSWER  THE  FOLLOWING  QUESTIONS 

i  II 
i 

460  LOCATE  3,  5 

0  PRINT  "1.  HOW  MANY  AF  PERSONNEL  CONDUCTED  SCREENING?" 

480  LOCATE  8, 70: COLOR  0,7: PRINT  "  COLOR  7,0. 

490  LOCATE  10,  5 


A. 2. 2. 


Zj  00 

510 

520 

530 

540 

550 

560 

570 

580 

590 

A  (*)(*) 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

K> 

/SO 

760 

770 

780 

790 

800 

810 

820 

830 

340 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

>0 


PRINT  "2.  WHAT  IS  THEIR  AVERAGE  GS  GRADE'?" 

LOCATE  10, 70: COLOR  0,7: PRINT  "  " : COLOR  7,0 

LOCATE  12,  5 

PRINT  "3.  HOW  MANY  WEEKS  DID  THE  SCREENING  REQUIRE?" 

LOCATE  12, 70: COLOR  0,7:PRINT  "  ": COLOR  7,0 

LOCATE  14,  5 

PRINT  "4.  SCREENING  REQUIRED  WHAT  PERCENT  OF  THEIR  TIME?" 
LOCATE  14,  70:  COLOR  0,7:  PRINT  "  "-.COLOR  7,0 

LOCATE  16,  5 

PRINT  "5.  WHAT  WAS  THE  PRIME'S  PRICE  FOR  CBO  ITEMS?" 

i  nr^TF  i  a  70-r.ni  hr  o.7-pptmt  ••  ••  ■  rni  np  7  r» 


LOCATE  18,  5 
PRINT  "6.  WHAT 


IS  THE  NEW  CONTRACTOR'S  PRICE  FOR  THE  ITEMS' 


LOCATE  IB, 70: COLOR  0,7: PRINT  "  ": 

LOCATE  20,  5 

PRINT  "7.  WHAT  IS  THE  INFLATION  RATE 
LOCATE  20, 70: COLOR  0,7: PRINT  " 

LOCATE  22,  5 

PRINT  "8.  WHAT  IS  THE  FRINGE  BENEFIT 
2, 70: COLOR  0,7: PRINT  "  ": 


COLOR  7,0 

(SEE  HELP 
COLOR  7,0 

RATE  (SEE 
COLOR  7,0 


SCREEN ) 


HELP  SCREEN) 


1 02< 
1990 
207 ( 
2150 

230t 

238< 

246C 

2540 

2760 


LOCATE 
GOSUB  2660 
REM 

IF  NOLD$  =  "N"  THEN  GOTO  730  ELSE  GOTO  740 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 

IF  B$="N"  GOTO  400 
PRINT  #1 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT  #1,A7«(K) 

PRINT  #1 , A8$  <K) 

GOTO  2940 
REM  THIS 

OPEN  NAMNO*  FOR 
FOR  I  =  1  TO  7 

I NPUT  #  1  ,  A 1  *  ( I  >  , A2$ ( I )  , A3$ ( I ) 

REM  IF  EOF ( 1 )  THEN  END' 

NEXT 
CLOSE  #1 


#1 

#1 

#1 

#1 

#1 

#1 

#1 


GOTO 
A1 $ <K) 
A2$  (H 
A3$  O 
A4$  U 
A5T.  O 
A63>  (1 
A7*  O 


SUBROUTINE  ENTERS  PREVIOUS 
INPUT  AS  #1 


DATA  INTO  THE  MODEL 


A4'£  (  I  )  ,  A  5$  (  I  )  ,  A6$  (  I )  ,  A7$  (  I  )  ,  A8$  ( I  ) 


A. 2.3. 


.000  RETURN 

1010  REM  THIS  IS  THE  SUBROUTINE  END . 

1020  REM 

1030  REM  THIS  IS  THE  INPUT  DATA  FOR  THE  SCREEN 
1040  REM 

i 050  REM  ON  HP  GOTO  920,930,940,950,960,970,980,990 
1060  LOCATE  8,  70:  PRINT  Al-MK)  " 


1070 

LOCATE 

10, 70: PRINT 

A2*(K) " 

II 

1 080 

LOCATE 

12, 70: PRINT 

A3S (K) " 

ll 

L  090 

LOCATE 

14, 70: PRINT 

A4$ (K) " 

it 

1 1 00 

LOCATE 

16, 70: PRINT 

A5$  <K  ) " 

11 

1 1 10 

LOCATE 

18, 70: PRINT 

A6»<K) " 

ll 

l  1 20 

LOCATE 

20, 70: PRINT 

A7$ (K) " 

il 

1130 

LOCATE 

22, 70: PRINT 

A8$(K) " 

II 

1140  PEM 
l 1 50  RETURN 

1160  REM  THIS  IS  THE  START  OF  THE  NEW  DATA  INPUT 
1170  REM 

l ISO  REM  THIS  IS  THE  YES/NO  RESPONSE  SECTION.. 
1190  REM 

1200  REM  THIS  IS  THE  START  OF  INPUT  #1 
1210  A1T$(K)=A1*(K> 

1220  LOCATE  8, 68: INPUT; " >  ",Al$UO 
1230  IF  A 1  $ ( K )  =  "N"  GOTO  1280 
240  IF  A 1  $ ( K )  =  "Y"  GOTO  1280 
.250  IF  A 1  $ ( K )  =  ""  GOTO  1270 
1260  BEEP: GOTO  1200 
1.270  A 1  $  ( K )  =  A 1 T  $  ( K ) 

1280  RETURN 
1290  REM 

1300  REM  THIS  IS  THE  START  OF  INPUT  #2 
1310  A2T$ <K) =A2$ <K> 

1320  LOCATE  10, 68: INPUT; " >  ",A2«(K) 

1330  IF  A2S<K)  =  "Y"  GOTO  1380 

1340  IF  A2$(K)  =  "N"  GOTO  1380 

1350  IF  A2*<K)  =  ""  GOTO  1370 
1360  BEEP: GOTO  1320 
1370  A2* <K) =A2T$ (K) 

1380  RETURN 
1390  REM 

1400  REM  THIS  IS  THE  START  OF  INPUT  #3 
l  4 1 0  A3T$  ( K. )  = A3$  ( K ) 

1420  LOCATE  12, 68: INPUT; " >  ",A3*<K> 

1430  IF  A3$  <K)  =  "Y"  GOTO  1480 

1440  IF  A3*<K)  =  "N"  GOTO  1480 

1450  IF  A3$ (K)  =  ""  GOTO  1470 
l  460  BEEP : GOTO  1 420 
1470  A3*  <K) =A3T* (K) 

1480  RETURN 
' 490  REM 


A. 2. 4. 


500  REM  THIS  IS  THE  START  OF  INPUT  #4 
510  A4T$ <K> =A4* (K) 

520  LOCATE  14, 68: INPUT; " >  " , A4$  OO 
530  IF  A4$(K)  =  "Y"  SDTO  1580 

540  IF  A4$ (K)  =  "N“  GOTO  1580 

550  IF  A4$ (K)  =  M "  GOTO  1570 
560  BEEP: GOTO  1520 
570  A4$ <K) =A4T$ (K) 

580  RETURN 
590  REM 

600  REM  THIS  IS  THE  START  OF  INPUT  #5 
610  AST  $  OO  =A5$ (K) 

620  LOCATE  16,  68:  INPUT;  *•  >  ",A5*(K) 

630  IF  A5$(K)  =  "Y"  GOTO  1680 

640  IF  A5$(K)  =  "N"  GOTO  1680 

650  IF  A5$(K)  =  ""  GOTO  1670 
660  BEEP: GOTO  1620 
670  A5$ (K) =A5T$ (K) 

680  RETURN 

690  REM  THIS  IS  THE  START  OF  INPUT  #6 
700  A6T$ (K) =A6$ (K) 

710  LOCATE  18,68: INPUT; ">  N,A6*<K> 

720  IF  A6$(K)  =  "Y"  GOTO  1770 

730  IF  A6$(K)  =  "N"  GOTO  1770 

40  IF  A6$(K)  =  ""  GOTO  1760 
750  BEEP: GOTO  1710 
760  A6$ (K) =A6T$ (K) 

770  RETURN 
780  REM 

790  REM  THIS  IS  THE  START  OF  INPUT  #7 
800  A7T$ (K) =A7$ (K) 

810  LOCATE  20, 68:  INPUT;  ">  ",A7$(K> 

820  IF  A7$(K)  =  "Y"  GOTO  1870 

830  IF  A7$(K)  =  "N"  GOTO  1870 

840  IF  A7$(K)  =  ""  GOTO  1860 
850  BEEP: GOTO  1810 
860  A7 $ ( K ) = A7T $ ( K ) 

370  RETURN 
880  REM 

890  REM  THIS  IS  THE  START  OF  INPUT  #8 
900  A8T$(K)=A8S(K) 

910  LOCATE  22, 68: INPUT; ">  ",A8*(K) 

920  IF  A8$(K)  =  "Y"  GOTO  1970 

930  IF  A8$(K)  =  "N"  GOTO  1970 

940  IF  A8$(K)  =  ""  GOTO  1960 
950  BEEP: GOTO  1910 
960  A8* (K) =A8T$ (K) 

970  RETURN 
980  REM 

?0  REM  THIS  IS  THE  START  OF  INPUT  41 


A. 2. 5. 


2000  A1T4 (K) =A1$ (K) 

2010  LOCATE  8, 68: INPUT; “ >  M,A1$(K) 

2020  IF  A 1  $ ( K ) = " "  GOTO  2040 
2030  GOTO  2050 
2040  A 1  $ ( K ) = A 1 T$ ( K ) 

2050  RETURN 
2060  REM 

2070  REM  this  IS  THE  START  OF  INPUT  #2 
2080  A2T $ ( K ) =A24 ( K ) 

2090  LOCATE  10, 68: INPUT; " >  " , A2$ ( K ) 
2100  IF  A2$ (K) =" "  GOTO  2120 
2110  GOTO  2130 
2120  A2$ (K) =A2T$ (K) 

2130  RETURN 
2 1 40  REM 

2150  REM  THIS  IS  THE  START  OF  INPUT  #3 
2 1 60  A3T $ ( K ) =A3$ (K) 

2170  LOCATE  12, 68: INPUT; " >  ",A3*(K> 
2180  IF  A3$ (K> =" "  GOTO  2200 
2190  GOTO  2210 
2200  A3$ ( K ) = A3T* ( K ) 

2210  RETURN 

2220  REM  THIS  IS  THE  START  0^  INPUT  #4 
•'230  A4T*(K)=A4*<K> 

2240  LOCATE  14,68:1 NPUT ; " >  " , A4$ ( K ) 
2250  IF  A4$ (K) =" "  GOTO  2270 
2260  GOTO  2280 
2270  A4$ (K) =A4T$ (K) 

2280  RETURN 
2290  REM 

2300  REM  THIS  IS  THE  START  OF  INPUT  #5 
2310  A5T$ (K) =A5$ (K) 

2320  LOCATE  16, 68: INPUT; ">  “,A5*(K> 
2330  IF  A5$ (K) =  " "  GOTO  2350 
2340  GOTO  2360 
2350  A5$ ( K ) = A5T$ (K ) 

2360  RETURN 
2370  REM 

2380  REM  THIS  IS  THE  START  OF  INPUT  #6 
2390  A6T'4i  ( K )  =  A6*  ( K ) 

2400  LOCATE  13,68:1 NPUT ; " >  M , A6$ ( K ) 
2410  IF  A6$ (K) =" "  GOTO  2430 
2420  GOTO  2440 
2430  A6$ (K) =A6TS(K) 

2440  RETURN 
2450  REM 

2460  REM  THIS  IS  THE  START  OF  INPUT  #7 
2470  A7Tt>  ( K )  =A7«  ( K ) 

480  LOCATE  20 ,68:1 NPUT ; " >  " , A 74 ( K ) 
2490  IF  A7*(K)=" 11  GOTO  2510 


h)  rJ  W  Ml  M  m 


2500  GOTO  2520 
2510  A7$ ( K ) = A7T $ ( K ) 

2520  RETURN 
.  50  REM 

2540  REM  THIS  IS  THE  START  OF  INPUT  48 
2550  AST  $ ( K ) = AS$ ( K ) 

2560  LOCATE  22, 63: INPUT; " >  ",A8*<K> 
2570  IF  A8f>  (K)  =" "  GOTO  2590 
2580  GOTO  2600 
2590  A8$ (K) =A8T$ (K) 

2600  RETURN 


2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 


REM 

LOCATE  25,25 

PRINT  "PRESS  ANY  KEY  TO  RETURN  TO  SCREEN. " 

A$=INKEY$:  IF  A*=""  THEN  GOTO  2640  ELSE  GOTO  2650 
RETURN 

REM 

REM  THIS  IS  THE  HELP  SUBROUTINE 
LOCATE  6, 10: COLOR  0,7 

COLOR  7  0-BEEpR  SPECIFIC  HELP  TYPE  QUESTION  NO.  OR  N  FOR  NO  HELP 


2710  A$= INKEYS:  IF  A$=" "  THEN  GOTO  2710  ELSE  GOTO  ^7^0 
2720  IF  A*="N"  THEN  GOTO  2742 


2730  HP  =  VAL ( A$ ) 

^74^  LOCATE  ^ 6  ^  (HPs'9)  THEN  GOTO  7480  ELSE  GOTO  2680 

ZZ VI  pn^nn  ^>^>>  TYPE  IN  T0TAL  CHANGE  YOU  ONLY  GET  WHAT  IS  TYPED 
.i/46  COLOR  7,0 

i  50  RETURN 

2760  REM 


2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

21360 

2870 

2880 


THE  SCREEN  REVIEW  CHECK  ?<  DATA  TO  FILE. 


REM  THIS  IS 
LOCATE  24,25 
COLOR  0,7: PRINT  "  IS  DATA  INPUT  CORRECT?  (Y/N) 
COLOR  7, 0:  B'fc=INKEY$:  IF  B$=""  THEN  GOTO  2800  ELSE 
THEN  GOTO  2840  ELSE  GOTO  2820 
THEN  GOTO  2840  ELSE  GOTO  2830 


IF  B$="Y" 

IF  B$="N" 

GOTO  2790 
RETURN 

REM  THIS  IS  THE 
R'EM  THIS  IS  THE 
LOCATE  1,5 

PRINT  " -  SCREEN 


COLOR 
GOTO  2810 


7,0 


BEGINNING  OF  SCREEN  #2. . . 
SCREEN  BORDER  SUBROUTINE. 


K 


2890  LOCATE  2,5 
2900  PRINT  " ! 


910  LOCATE  4,5 
920  PRINT  " ! 


930  RETURN 

940  REM  THIS  IS  THE  START  OF  SCREEN  r> 
950  REM 

960  K  =  2: HP=0: N0M=0 
'0  CL.S 
2980  GOSUB  2860 
2990  LOCATE  3,5 


II 


II 


A. 2.7. 


PLEASE  ANSWER  THE  FOLLOWING  QUESTIONS 


.•GOO  PRINT  "  ! 


3010 

3020 

3030 

3040 

3050 

3060 

3070 

30  SO 

3090 

3 1 00 

31 10 

3120 

3 1 30 

3140 

3 1 50 

3160 

3170 

3 1 80 

3 1 90 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

33 1 0 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

..490 


LOCATE  8,  5 

PRINT  "1.  WILL  YOU  CONDUCT  A  PRICE  ANALYSIS  (Y/N)?" 

LOCATE  8, 70: COLOR  0,7: PRINT  "  COLOR  7,0 

LOCATE  10,  5 

PRINT  "2.  WILL  THIS  BE  A  LEVEL  I  ANALYSIS  (Y/N)?" 

LOCATE  10,  70:  COLOR  0,7:  PRINT  "  ".-COLOR  7,0 

LOCATE  12,  5 

PRINT  "3.  WHAT  WILL  BE  THE  AVERAGE  GRADE  OF  THE  ANALYSTS 
LOCATE  12, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

LOCATE  14,  5 

PRINT  "4.  HOW  MANY  SOURCE  APPROVALS  WILL  BE  REQUIRED  ?" 
LOCATE  14, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

LOCATE  16,  5 

PRINT  "5.  HOW  MANY  PLANT  VISITS  FOR  THIS  SOURCE  APR.?  " 
LOCATE  16, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

LOCATE  18,  5 

PRINT  "6.  HOW  MANY  AF  PERSHkimpi  i,iti  i  mai-t  TUCCC  UTCTTq?" 
LOCATE  18, 70:  COLOR  0,7:  PRINT  "  "  s  COLOR  7  r» 

LOCATE  20,  5 

PRINT  "7.  WHAT  IS  THE  AVERAGE  GRADE  OF  THESE  VISITORS'7" 
LOCATE  20,  70:  COLOR  0,7:  PRINT  "  ".-COLOR  7,0 

LOCATE  22,  5 

PRINT  "8.  IS  THIS  A  SOLE  SOURCE  PROCUREMENT?  (Y/N)" 
LOCATE  22, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

GOSUB  2660 

IF  MOLDS  =  "N"  THEN  GOTO  3270  ELSE  GOTO  3280 
GOSUB  1020 
GOSUB  1200 
GOSUB  1300 
GOSUB  2150 
GOSUB  2220 
GOSUB  2300 
GOSUB  2380 
GOSUB  2460 
GOSUB  1890 
GOSUB  2760 
IF  B$="N 
PRINT  #1 
PRINT  #1 
PRINT  #1 
PRINT  #1 
PRINT  #1 
PRINT  #1 
PRINT  #1 
PRINT  #1 
GOTO  3470 

REM  THIS  IS  THE  START  OF  SCREEN  3 
REM 
REM 


1  GOTO  2940 
, A1S (K) 

, A2S (K) 

, A3S (K) 

, A4S (K) 

, A5S (K) 

, A6$ <K> 

,  A7SOO 
, ASS (K) 


A. 2. 8. 


.•500  K  =  3:  HF'=0:  N0M=0 
5510  CLS 
5520  60SUB  2860 
5530  LOCATE  3,5 
5540  PRINT  " 


PLEASE  ANSWER  THE  FOLLOWING  QUESTIONS 


3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
7  30 
.-•740 
3750 
3760 
3770 
3780 
3790 
3800 
38 1 0 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
•580 
..990 


LOCATE  8,  5 

PRINT  "1.  WILL  REVERSE  ENGINEERING  BE  ATTEMPTED?  (Y/N)  " 
LOCATE  8,  70:  COLOR  0,7:  PRINT  "  "-.COLOR  7,0 

LOCATE  10,  5 

PRINT  "2.  WILL  IT  BE  A  LEVEL  I  EFFORT?  (Y/N) " 

LOCATE  10, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

LOCATE  1 2 ,  5 

PRINT  "3.  THE  AVERAGE  GRADE  OF  THESE  ENGINEERS  WILL  BE  . 
LOCATE  12, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

LOCATE  14,  5 

PRINT  "4.  WILL  A  PRE-AWARD  SURVEY  BE  CONDUCTED?  (Y/N)" 
LOCATE  14, 70: COLOR  0,7: PRINT  "  " s COLOR  7,0 

LOCATE  16,  5 

PRINT  "5.  WILL  THIS  SURVEY  REQUIRE  ON-SITE  VISITS?  (Y/N) 
LOCATE  16, 70: COLOR  0,7: PRINT  "  COLOR  7,0 

LOCATE  18,  5 

PRINT  "6.  HOW  MANY  VISITS  WILL  BE  REQUIRED?" 

LOCATE  18, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

LOCATE  20,  5 

PRINT  "7.  HOW  MANY  PERSONNEL  ON  THE  AF  VISIT  TEAM?" 
LOCATE  20,  70:  COLOR  0,7:  PRINT  "  ".-COLOR  7,0 

LOCATE  22,  5 

PRINT  "8.  WHAT  IS  THE  AVERAGE  GS  GRADE  OF  THIS  TEAM?" 
LOCATE  22, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

GOSUB  2660 

IF  NOLD$  =  "N"  THEN  GOTO  3810  ELSE  GOTO  3320 

GOSUB  1020 

GOSUB  1200 

GOSUB  1300 

GOSUB  2150 

GOSUB  1500 

GOSUB  1 600 

GOSUB  2380 

GOSUB  2460 

GOSUB  2540 

GOSUB  2760 

IF  B$="N"  GOTO  3470 

PRINT  # 1 , A 1  $  < K ) 

PRINT  # 1 , A2$ ( K ) 

PRINT  #1 , A3$ (K) 

PRINT  #1,A4S(K) 


PRINT  #1 
PRINT  #1 


PRINT  # 1 , A7$ ( K) 


PRINT  #1 


,A5$ <K> 
, A6$  <K> 


AS'i  ( K ) 


A. 2.9. 


.*00  GOTO  4010 

010  REM  THIS  IS  THE  START  OF  SCREEN  4 
020  REM 

030  REM  \ 

040  K  =  4: HP=0: N0M=0 
050  CLS 

060  GOSUB  2860 
070  LOCATE  3,5 

080  PRINT  " !  PLEASE  ANSWER  THE  FOLLOWING  QUESTIONS 


090  LOCATE  8,  5 

100  PRINT  "1.  IS  THIS  ANALYSIS  FOR  MORE  THAN  ONE  ITEM?  (Y/N)" 

110  LOCATE  8, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

120  LOCATE  10,  5 

130  PRINT  "2.  HOW  MANY  CLASS  1  (8.5  BY  11)  DRAWINGS  IN  THE  PACKAGE?" 

140  LOCATE  10, 70: COLOR  0,7: PRINT  "  ": COlOR  7,0 

150  LOCATE  12,  5 


160  PRINT  "3.  WHAT  is  THE  WEIGHT  Oc  THE  ITEM(S)?" 

170  LOCATE  12, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

180  LOCATE  14,  5 

190  PRINT  "4.  WHAT  IS  THE  TOTAL  SPO  BUDGET?" 

200  LOCATE  14, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

210  LOCATE  16,  5 

220  PRINT  "5.  HOW  MANY  MONTHS  ARE  AVAILABLE  TO  SPEND  THIS  BUDGET0" 

50  LDCATE  16, 70: COLOR  0,7:PRINT  "  ": COLOR  7,0 

240  LOCATE  18,  5 

250  PRINT  "6.  WILL  THERE  BE  A  FIRST  ARTICLE  QUALIFICATION?  (Y/N)?" 

260  LOCATE  18, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

270  LOCATE  20,  5 

280  PRINT  "7.  HOW  MANY  AF  PERSONNEL  WILL  BE  INVOLVED  IN  THIS  QUALIFICATION 
290  LOCATE  20,  70:  COLOR  0,7:  PRINT  "  ".-COLOR  7,0 

500  LOCATE  22,  5 

510  PRINT  "8.  WHAT  WILL  BE  THE  GS  GRADE  OF  THIS  TEAM?" 

520  LOCATE  22, 70: COLOR  0,7: PRINT  "  " : COLOR  7,0 

530  GOSUB  2660 


540  IF  NOLDS  =  "N"  THEN  GOTO  4350  ELSE  GOTO  4360 
550  GOSUB  1020 


560  GOSUB  1200 
570  GOSUB  2070 
580  GOSUB  2150 
590  GOSUB  2220 


100  GOSUB  2300 


110  GOSUB  1690 
120  GOSUB  2460 
130  GOSUB  2540 


140  GOSUB  2760 

150  IF  B$="N"  GOTO  4010 

160  PRINT  #  1  ,  A 1  $  ( K ) 

170  PRINT  #1 , A2S (K) 

30  PRINT  # 1 , A3$ ( K ) 

190  PRINT  # 1 , A 4$ (K) 


A. 2. 10. 


4500  PRINT  #1 , A5$ (K) 

4510  PRINT  #1,A6*<K) 

4520  PRINT  #1 , A7$ (K) 

4530  PRINT  #1,AB$(K) 

4540  GOTO  4550 

4550  REM  THIS  IS  THE  START 
4560  REM 

4570  K  =  5:HP=0:N0M=O 
4580  CLS 
4590  GOSUB  2860 
4600  LOCATE  3,5 
4610  PRINT  " ! 


OF  SCREEN  5 


PLEASE  ANSWER 


THE  FOLLOWING  QUESTIONS 


4620 
4630 
4640 
4650 
4660 
4670. 
4680 
4690 
4700 
4710 
^•720 
!  30 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
30 
4990 


LOCATE  8,  5 

Tori NEW  CONTRACTOR  REQUIRE  EEO  SUPPORT'?  <Y/N) " 

LO^tI S10V^'  °’7!PRINT  "  "  =  “E°R 

F LnrAT[? i HE  REQUIRE  SOCIO-ECONOMIC  SUPPORT?  (Y/N)  " 

LOc“e  12?’s  0.7=  print  ".COLOR  7,0 

PRINT  "3.  WHAT  WILL  WARRANTEES  COST?  " 

LOCATE  12, 70: COLOR  0,7: PRINT  "  "‘COLOR  7  O 

LOCATE  14,  5  -9UL.uk  /,0 

cost  to  ™f  flF 

Se'TL^cS  S:^R^T"THE  ™  ™E  — 7  (MILES) 

LOCATE "^8  ^VcSloR  REVIEWS  “H-L  EE  REQUIRED?" 

LOCATE  20,  5  -9ULUR  7,0 

[ocaL''7o  T™LTHE  C0ST  0E  NEW  equipment/tools?" 

LOCATE  22. ’  5  0,7=  PRINT  ••  "  =  COLOR  7,0 

locate  p?  70*001 nnT|)E7CSr  0F  FacILITY  modifications?" 

GOsSb  2^0  0,7=  print  "  ".COLOR  7,0 

G0SUBL?02.;  "N"  ™EN  G0T0  4880  ELSE  GOTO  48’0 

GOSUB  1200 

GOSUB  1 300 

GOSUB  2150 

GOSUB  2220 

GOSUB  2300 

GOSUB  2380 

GOSUB  2460 

GOSUB  2540 

GOSUB  2760 

IF  B$="N"  GOTO  4550 

PRINT  #1  AJ$(K) 


A. 2. 11. 


X>0  PRINT  #  1 ,  A2$  ( K ) 
i 010  PRINT  #  1 , A3$ ( K ) 

<020  PRINT  #1 ,  A4$  (K) 

<030  PR  I  NT  #1 ,  A5$  ( K ) 

<040  PRINT  #1 ,  A6$  (K) 

>050  PRINT  #  1 ,  A7 $  < K ) 

1060  PRINT  #1,A8$<K) 

>070  GOTO  5080 

'080  REM  THIS  IS  THE  START  OF  SCREEN  6 
’<090  REM 
ilOO  REM 

<’ilO  K  =  6 :  HP=0 :  N0M=0 
> 1 20  CLS 
il30  GOSUB  2860 
<140  LOCATE  3,5 

’150  PRINT  " !  PLEASE  ANSWER  THE  FOLLOWING  QUESTIONS 

i  II 


•  160 
•  170 
i  1  SO 
;i90 
•200 
•'210 
1220 
:230 
240 
*250 
1260 
1270 
1280 
290 
300 
3 1 0 
320 
.'330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
f  9  0 


LOCATE  8,  5 

PRINT  "1.  WHAT  IS  THE  AVE.  GRADE  OF  THE  CONTRACTING  TEAM?" 

LOCATE  8, 70: COLOR  0,7: PRINT  "  COLOR  7,0 

LOCATE  10,  5 

PRINT  "2.  HOW  MANY  SOURCES  WILL  BE  DEVELOPED?" 

LOCATE  10, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

LOCATE  12,  5 

PRINT  "3.  HOW  MANY  PLANT  VISITS  FOR  SOURCE  DEVELOPMENTS" 
LOCATE  12, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

LOCATE  14,  5 

PRINT  "4.  HOW  MANY  AF  VISITORS  ON  EACH  TRIP?" 

LOCATE  14, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

LOCATE  16,  5 

PRINT  "5.  WHAT  WILL  BE  THEIR  AVERAGE  GRADE?" 


LOCATE  20 
PRINT  "7. 
LOCATE  20 
LOCATE  22 


':  COLOR  7,0 


LOCATE  16, 70: COLOR  0,7: PRINT  " 

LOCATE  18,  5 

PRINT  "6.  HOW  MANY  EMPLOYEES  AT  THE  NEW  CONTRACTOR'S  FACILITY?" 


30  LOCATE  18, 70: COLOR  0,7: PRINT  " 


": COLOR  7,0 


WHAT  IS  THE  HIGHEST  CLASSIFICATION  OF  CBO  ITEMS?" 
,70: COLOR  0,7: PRINT  "  COLOR  7,0 


PRINT  "8.  THE  NO.  OF  NEW  CONTRACTOR  PERS.  REQUIRING  CLEARANCES  IS, 
LOCATE  22, 70: COLOR  0,7: PRINT  "  ":  COLOR  7,0 

GOSUB  2660 

IF  NOLD$  =  "N"  THEN  GOTO  5420  ELSE  GOTO  5430 

GOSUB  1020 

GOSUB  1990 

GOSUB  2070 

GOSUB  2150 

GOSUB  2220 

GOSUB  2300 

GOSUB  2380 

GOSUB  2460 


A. 2. 12. 


o500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 

l  II 

I 

5690 

5700 

5710 

5720 

'730 

wi740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 

5840 

5850 

5860 

5870 

5880 

5890 

5900 

5910 

5920 

5930 

5940 

5950 

5960 

5970 

980 

,j990 


GOSUB  2540 
GOSUB  2760 
IF  B$="N"  GOTO  5080 
PRINT  #  1 ,  A 1  $  ( K ) 

PRINT  #1,A2$(K) 

PRINT  #1,A3$(K) 

PRINT  #1,A4$(K) 

PRINT  #1 , A5$ (K) 

PRINT  #1 , A6$ (K) 

PRINT  #1 , A7$ (K) 

PRINT  #1 , A8$ (K) 

GOTO  5620 

REM  THIS  IS  THE  START  OF  SCREEN  7 
REM 

K  =  7:HP=0:N0M=0 
CLS 

GOSUB  2860 
LOCATE  3, 5 

PRINT  " !  PLEASE  ANSWER  THE  FOLLOWING  QUESTIONS 


LOCATE  8,  5 

PRINT  "1.  HOW  MANY  PROPOSALS  IN  SOURCE  SELECTION?" 

LOCATE  8, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

LOCATE  10,  5 

PRINT  "2.  HOW  MANY  AF  PEOPLE  IN  THE  SOURCE  SELECTION?" 

LOCATE  10, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

LOCATE  12,  5 

PRINT  "3.  WHAT  IS  THEIR  AVERAGE  GRADE?" 

LOCATE  12, 70:  COLOR  0,7:  PRINT  "  ••  —  ;> 

LOCATE  14,  5 

PRINT  "4.  MONTHS  OF  SPO  CBO  MGT  RESPONSIBILITY  IS _ " 

LOCATE  14,  70:  COLOR  0,7:  PRINT  "  ".-COLOR  7,0 

LOCATE  16,  5 

PRINT  "5.  AVE.  HRS.  PER  WEEK  IN  GEN.  CBO  MANAGEMENT  IS.. 
LOCATE  16, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

LOCATE  IS,  5 

PRINT  "6.  AVE.  GRADE  OF  THE  SPO  CBO  MANAGEMENT  TEAM  IS. . 
LOCATE  18, 70: COLOR  0,7: PRINT  "  COLOR  7,0 

LOCATE  20,  5 

PRINT  "7.  HOW  MANY  SOLICITATIONS  WILL  BE  SENT  OUT? 
LOCATE  20, 70: COLOR  0,7: PRINT  "  COLOR  7,0 

LOCATE  22,  5 

PRINT  "8.  WHAT  IS  THE  AVERAGE  NUMBER  OF  SPO  PERSONNEL?" 
LOCATE  22, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

GOSUB  2660 

IF  NOLD$  =  "N"  THEN  GOTO  5950  ELSE  GOTO  5960 

GOSUB  1020 

GOSUB  1990 

GOSUB  2070 

GOSUB  2150 

GOSUB  2220 


A. 2, 13. 


JOO 
e>0  1 0 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6 1 00 
6110 
6120 
6 1 30 
6140 
6150 
6160 
6170 
6  1 80 
6190 
6200 

6210 

I  H 

I 

6220 

6230 

240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
64 1 0 
6420 
6430 
6440 
6450 
6460 
6470 
6480 

190 


GOSUB  2300 

GDSUB  2380 

GOSUB  2460 

GOSUB  2540 

GOSUB  2760 

IF  B$="N"  GOTO  5620 

PRINT  #  1 ,  A 1  $  ( K ) 

PRINT  # 1 , A2$ ( K ) 

PRINT  #1 , A3$ (K) 

PRINT  #1,A4«<K) 

PRINT  #1,A5*(K> 

PRINT  #1 , A6$ (K) 

PRINT  #1,A7*<K> 

PRINT  #1 , A8$ (K) 

GOTO  7190 

REM  THIS  IS  THE  START  OF  SCREEN  8 
RrEM 

K  =  8: HP=0: N0M=0 
CLS 

GOSUB  2860 
LOCATE  3,5 

PRINT  " !  PLEASE  ANSWER  THE  FOLLOWING  QUESTIONS 

LOCATE  8,  5 

PRINT  "1.  888888888888888 ALS  IN 
LOCATE  B,  70:  COLOR  0,7:  PRINT  •• 

LOCATE'  10,  5 

PRINT  "2.  HOW  MANY  AF  PEOPLE  IN 
LOCATE  10, 70s  COLOR  0,7: PRINT  " 

LOCATE  12,  5 

PRINT  "3.  WHAT  IS  THEIR  AVERAGE 
LOCATE  12, 70: COLOR  0,7:PRINT  " 

LOCATE  14,  5 

PRINT  "4.  MONTHS  OF  SPO  CBO  MGT 
LOCATE  14, 70: COLOR  0,7: PRINT  " 

LOCATE  16,  5 

PRINT  "5.  AVE.  HRS.  PER  WEEK  IN 
LOCATE  16, 70: COLOR  0,7: PRINT  " 

LOCATE  18,  5 

PRINT  "6.  AVE.  GRADE  OF  THE  SPO 
LOCATE  18, 70: COLOR  0,7: PRINT  " 

LOCATE  20,  5 

PRINT  "7.  A  GOOD  ONE . 

LOCATE  20 , 70 : COLOR  0,7: PR I  NT  "  " : COLOR  7 , 0 

LOCATE  22,  5 

PRINT  "8.  ANOTHER  GOOD  ONE . 

LOCATE  22, 70: COLOR  0,7: PRINT  "  COLOR  7,0 

GOSUB  2660 

IF  NOLDS  =  "N"  THEN  GOTO  6480  ELSE  GOTO  6490 
GOSUB  1020 
GOSUB  1990 


SOURCE  SELECTION?" 

": COLOR  7,0 

THE  SOURCE  SELECTION?" 

": COLOR  7,0 

GRADE?" 

".•COLOR  7,0 

RESPONSIBILITY  IS _ " 

": COLOR  7,0 

GEN.  CBO  MANAGEMENT  IS..." 
".-COLOR  7,0 

CBO  MANAGEMENT  TEAM  IS..." 
": COLOR  7,0 


A. 2. 14. 


A  500 
10 
6520 
6530 
6540 
6550 
6560 
6570 
65B0 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
66B0 
6690 
6700 
6710 
6720 
6730 

l  II 

l 

A740 
’SO 
6760 
6770 
6780 
6790 
6800 
6810 
6820 
6830 
6840 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6920 
6930 
6940 
6950 
6960 
6970 
6980 
6  99  O 


GOSIJB  2070 

GOSUB  2150 

GOSUB  2220 

GOSUB  2300 

GOSIJB  2380 

GOSIJB  2460 

GOSUB  2540 

GOSUB  2760 

IF  B*-a>Nla  GOTO  6150 

PRINT  #1,A1$<K) 

PRINT  #1 , A2$ (K) 

PRINT  #1 , A3$ (K) 

PRINT  #1 , A4$ (K) 

PRINT  #1,A5$(K) 

PRINT  #1 , A6$ (K) 

PRINT  #1 , A7$ (K) 

PRINT  #1 , A8$ (K) 

REN  THIS  IS  THE  START  OF  SCREEN  9 
REN 

K  =  9 :  HF'=0 :  N0N=0 
CLS 

GOSUB  2860 
LOCATE  3,5 

PRINT  "  :  PLEASE  ANSWER  THE  FOLLOWING  QUESTIONS 

LOCATE  8,  5 

PRINT  "1.  99999999999999SALS  IN 
LOCATE  8, 70: COLOR  0,7: PRINT  " 

LOCATE  10,  5 

PRINT  "2.  HOW  NANY  AF  PEOPLE  IN 
LOCATE  10, 70: COLOR  0,7: PRINT  " 

LOCATE  12,  5 

PRINT  "3.  WHAT  IS  THEIR  AVERAGE 
LOCATE  12, 70: COLOR  0,7: PRINT  " 

LOCATE  14,  5 

PRINT  "4.  NONTHS  OF  SPO  CBO  NGT 
LOCATE  14, 70: COLOR  0,7: PRINT  " 

LOCATE  16,  5 

PRINT  "5.  AVE.  HRS.  PER  WEEK  IN 
LOCATE  16, 70: COLOR  0,7: PRINT  " 

LOCATE  18,  5 

PRINT  "6.  AVE.  GRADE  OF  THE  SPO 
LOCATE  18, 70: COLOR  0,7: PRINT  - 
LOCATE  20,  5 

PRINT  "7.  A  GOOD  ONE.-. . 

LOCATE  20, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

LOCATE  22,  5 

PRINT  "8.  ANOTHER  GOOD  ONE . 

LOCATE  22, 70: COLOR  0,7: PRINT  "  ": COLOR  7,0 

GOSUB  2660 

IF  NOLD$  =  "N"  THEN  GOTO  7000  ELSE  GOTO  7010 


SOURCE  SELECTION?" 

": COLOR  7,0 

THE  SOURCE  SELECTION?" 

": COLOR  7,0 

GRADE?" 

": COLOR  7,0 

RESPONSIBILITY  IS...." 

": COLOR  7,0 

GEN.  CBO  MANAGEMENT  IS. . . " 
": COLOR  7,0 

CBO  MANAGEMENT  TEAM  IS..." 
": COLOR  7,0 
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7000  GOSUB  1020 

7010  GOSUB  1990 

7020  GOSUB  2070 

7030  GOSUB  2150 

7040  GOSUB  2220 

7050  GOSUB  2300 

7060  GOSUB  2380 

7070  GOSUB  2460 

7080  GOSUB  2540 

7090  GOSUB  2760 

7100  IF  B$="N"  GOTO  6670 

7110  PRINT  #1 ,  A 1  $  ( K ) 

7 1 20  PRINT  #1 , A2$ ( K ) 

7130  PRINT  #1 , A3$  <K) 

7140  PRINT  # 1 , A4$  <K) 

7150  PRINT  #1,A5$(K> 

7160  PRINT  #1,A6*<K) 

7170  PRINT  #1,A7*<K> 

7180  PRINT  #1 , A8$ (K) 

7190  CLOSE  #1 

7200  REM  THIS  IS  THE  MODEL  DATA  INPUT  CHECK  SECTION 
7210  CLS 
7220  REM 

"T230  LOCATE  10,10 

240  PRINT  "##*################* **##### #**####:#######*### #**####**####.#*#*#* 
7250  LOCATE  11,10 

7260  PRINT  M*  a 

7270  LOCATE  12,  10 

7280  PRINT  "*  DO  YOU  WISH  TO  VIEW  THE  DATA  INPUT?  (Y/N)  * 

7290  LOCATE  13,10 

7300  PRINT  "  *  >i 

7310  LOCATE  14,10 

7320  PRINT  "*****####*#######*##*#####*##########*#*#**#*#*###*##*# **# *###**!* 
7330  LOCATE  17,20 

7340  PRINT  "NOTE::::  Y  MEANS  YES" 

7350  LOCATE  19,20 

7360  PRINT  "  N  MEANS  NO" 

7370  LOCATE  12, 68: PRINT  ">  " 

7380  E$=INKEY$: IF  E$=""  THEN  GOTO  7380  ELSE  GOTO  7390 

7390  IF  E'4»=" Y"  THEN  GOTO  7420  ELSE  GOTO  7400 

7400  IF  E$="N"  THEN  GOTO  7450  ELSE  GOTO  7410 

7410  GOTO  7370 

7420  CLS: LOCATE  15,25 

7430  PRINT  "THE  INPUT  DATA  MODEL  IS  LOADING" 

7440  RUN  "DAT I  NY" 

7450  CLS: LOCATE  15,25 

7460  PRINT  "THE  CALCULATION  MODEL  IS  LOADING" 

7470  RUN  " CALCUY " 

“480  REM  THIS  IS  THE  HELP  SECTION . 

190  REM 
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:>  cls 


lO 

NOM  =  (K  - 

1 )  *8 

20 

IF 

K=1  GOTO 

7590 

30 

IF 

K=2  GOTO 

7600 

40 

IF 

K=3  GOTO 

7610 

50 

IF 

K=4  GOTO 

7620 

60 

IF 

K=5  GOTO 

7630 

70 

IF 

K=6  GOTO 

7640 

30 

IF 

K=7  GOTO 

7650 

90 

ON 

HP  GOTO 

7700, 

00 

ON 

HP  GOTO 

8450, 1 

10 

ON 

HP  GOTO 

9 1 00 , 1 

20 

ON 

HP  GOTO 

9760, 1 

30 

ON 

HP  GOTO 

10310 

40 

ON 

HP  GOTO 

10980 

50 

ON 

HP  GOTO 

1 1590 

+  HP 


60 

70 

80 

90 

00 

10 

20 

30 

40 

0 

o0 


"PRESS  ANY 
THEN  7670 


l  1230, 11290,  11360, 1 1420,  1 1510 
L 1770, 11850, 11930, 12000, 12110 
KEY  TO  CONTINUE. " 

ELSE  GOTO  7680 


ON  SCREEN  1 


LOCATE  24, 20: PRINT 
A*= INKEY*:  IF  A*=" 

RETURN 
REM 

REM  THIS  IS  THE  HELP  FOR  QUESTION 

CLS : LOCATE  2 , 5 : PR I NT  " QUEST ION  1 , SCREEN  1 " 

LOCATE  4, 5: PRINT  "HOW  MANY  AF  PERSONNEL  CONDUCTED  SCREENING?" 
LOCATE  7,10: PRINT  "THIS  IS  THE  NUMBER  OF  GOVERNMENT  PERSONNEL  THAT 
LOCATE  9,l0:PRINT  "PARTICIPATED  IN  THE  SCREENING  OF  THE  POTENTIAL 
LOCATE  1 1 , 10: PRINT  "ITEMS  FOR  COMPONENT  BREAKOUT.  NORMALLY  THIS 
LOCATE  13, 10: PRINT  "WOULD  INCLUDE  ENGINEERS,  PROGRAM  MANAGERS, 


GROUP  " 
CONTRACTING 


70  LOCATE  15, lu: PRINT  "PERSONNEL,  AND  OTHERS  FROM  THE  SPO  CADRE  " 

30  GOSUB  2620: CLS: GOTO  430 
90  CLS: GOTO  7970 

10  CLS  THIS  IS  THE  HELP  F°R  QLJESTI0N  2  QN  SCREEN  1 

20  CLS: LOCATE  2, 5: PRINT  "QUESTION  2, SCREEN  1" 

30  LOCATE  4,5: PRINT  "WHAT  IS  THEIR  AVERAGE  GRADE?" 

40  LOCATE  7, lO: PRINT  "TO  DETERMINE  THIS  FIGURE  CALCULATE  THE  AVERAGE  SCREEN IN 


50 
60 
70 
80 
90 
00 
10 
20 
30 
40 
50 
6  0 
70 
0 
t'O 


LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 


9, 10: PRINT  "TEAM  GRADE  BY  ADDING  THE  GRADES  OF  THE  PARTICIPANTS" 
11, lO: PRINT  "AND  DIVIDE  BY  THE  NUMBER  OF  PARTICIPANTS  AND  THEN" 


1  U 

17, 


19, 15: 
21 


10: PRINT 
10: PRINT 
15:  PRINT 
PRINT 


"2LT  =  GS9 
"MAJ  =  GS13 
»>CAUTION< 


"SELECT  THE  NEAREST  WHOLE  NUMBER.  THE  PROGRAM" 
"WILL  ACCEPT  ANY  WHOLE  NUMBER  FROM  7  TO  15.  " 

1LT  =  GS 1 1  CAPT  =  GS 12" 

LCOL  =  GS 1 4  COL  =  GS15" 

10:  PRINT  "  »>CAUTION<«  ENTER  ONLY  NUMBERS  FROM 

10:  PRINT  "  7  TO  1  =■ 11 

GOSUB  2620: CLS: GOTO  4 
REM  THIS  IS  THE 

CLS 

CLS  .-LOCATE  2,  5:  PRINT  "QUESTION  3,  SCREEN  1" 

LOCATE  4,  5:  PRINT  "HOW  MANY  WEEKS  DID  THE  SCREENING  PEQUIRF'?" 

LOCATE  7, 10: PRINT  "THIS  IS  THE  TOTAL  TIME  IN  WEEKS  OF  THE  SCREENING 
10: PRINT  "FROM  THE  START  TO  THE  FINISH." 


30 

HELP 


FOR  QUESTION  3  ON 


SCREEN 


1 


LOCATE  9 
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GOSUB  2620: CLS: GOTO  430 

REM  THIS  IS  THE  HELP  FOR  QUESTION  4  ON  SCREEN  1 

CLS 

CLS: LOCATE  2 ,5 SPRINT  "QUESTION  4, SCREEN  1" 

LOCATE  4,5:  PRINT  "SCREENING  REQUIRED  WHAT  V’ERCENT  OF  THEIR  TIME?" 

LOCATE  7,1 0 :  PR'  I  NT  "THIS  IS  AN  ESTIMATE  OF  THE  PERCENTAGE  OF  THE  TIME" 

LOCATE  9, 10: PRINT  "DEVOTED  TO  SCREENING  BY  THE  TEAM  MEMBERS." 

LOCATE  11, 10: PRINT  "DATA  ENTRY  EXAMPLE . FOR  30  PERCENT  ENTER  30" 

GOSUB  2620: CLS: GOTO  430 

REM  THIS  IS  THE  HELP  FOR  QUESTION  5  ON  SCREEN  1 

CLS 

CLS: LOCATE  2, 5: PRINT  "QUESTION  5, SCREEN  1" 

LOCATE  4, 5: PRINT  "WHAT  WAS  THE  PRIME'S  PRICE  FOR  THE  CBO  ITEMS?" 

LOCATE  7, 10: PRINT  "THIS  IS  THE  TOTAL  OF  THE  PRIME  PRICES  OF  THE  CBO" 

LOCATE  9, 10: PRINT  "ITEMS  IDENTIFIED  BY  THE  SCREENING  TEAM.  " 

LOCATE  11  ,.10:  PRINT  "FOR  EXAMPLE ....  ENTER  1000000  FOR  ONE  MILLION." 

GOSUB  2620: CLS: GOTO  430 

REM  THIS  IS  THE  HELP  FOR  QUESTION  6  ON  SCREEN  1 

CLS 

CLS: LOCATE  2, 5: PRINT  "QUESTION  6, SCREEN  1" 

LOCATE  4, 5:  PRINT  "WHAT  IS  THE  NEW  CONTPACTOP ’  S  PRICE  FOR  THE  ITEMS'-1" 

LOCATE  7, 10: PRINT  "THIS  IS  THE  ANTICIPATED  OR  KNOWN  PRICE  OF  THE  CBO" 

LOCATE  9, 10: PRINT  "ITEMS  IDENTIFIED  FOR  THE  BREAKOUT.  INCLUDE  ALL  OF" 
LOCATE  11, 10: PRINT  "OF  THE  ITEMS  IN  THE  QUANTITIES  ORDERED." 

LOCATE  13, 10: PRINT  "THIS  COST  WILL  BE  COMPARED  TO  THE  PRIME  COST" 

LOCATE  15, 10: PRINT  "THAT  WAS  CALLED  FOR  ABOVE." 

GOSUB  2620: CLS: GOTO  430 

REM  THIS  IS  THE  HELP  FOR  QUESTION  7  ON  SCREEN  1 

CLS 

CLS: LOCATE  2, 5: PRINT  "QUESTION  7, SCREEN  1" 

LOCATE  4, 5: PRINT  "WHAT  IS  THE  INFLATION  RATE?" 

LOCATE  7, 10: PRINT  "THIS  IS  THE  RATE  OP  INFLATION  SINCE  JANUARY  1987." 

LOCATE  9, 10: PRINT  "EXAMPLE - IF  THE  INFLATION  RATE  IS  5  FERCENT  THEN" 

LOCATE  11,  10:  PRINT  " . ENTER  5" 

GOSUB  2620: CLS: GOTO  430 

REM  THIS  IS  THE  HELP  FOR  QUESTION  8  ON  SCREEN  1 

CLS 

CLS: LOCATE  2, 5: PRINT  "QUESTION  8, SCREEN  1" 

LOCATE  4,5:  PRINT  "WHAT  IS  i , _ _ _  uc.iMt-.f-  i  T  RATE?" 

LOCATE  7, 10: PRINT  "THIS  IS  THE  RATE  ADDED  TO  SALARY  INFORMATION  IN  " 

LOCATE  9,10: PRINT  "ORDER  TO  COMPUTE  TOTAL  COSTS  OF  PERSONNEL.  THE  ASD  RATE 

LOCATE  11, 10: PRINT  "IS  CURRENTLY  AT  27.3  PERCENT.  UNLESS  YOU  HAVE  NEWER" 
LOCATE  13, 10:PRINT  "INFORMATION  THEN  WE  RECOMMEND  THAT  YOU  ENTER  27.3 
LOCATE  15, 10: PRINT  "AS  THE  FRINGE  BENEFIT  RATE." 

GOSUB  2620: CLS: GOTO  430 
REM 

CLS  .-LOCATE  2, 5:  PRINT  "QUESTION  1  ,  SCREEN  2" 

LOCATE  4,5:  PR  I  NT  "WILL  YOLJ  CONDUCT  A  PRICE  ANALYSIS'"1  (Y/N)  " 

LOCATE  7, 10: PRINT  "A  PRICE  ANALYSIS  IS  USED  TO  DEVELOP  VALIDATED  PRICES" 
LOCATE  9, 10: PRINT  "FOR  ITEMS  WHICH  WILL  BE  PURCHASED  IN  A  SOLE  SOURCE" 
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LOCATE  11, 10: PR I NT  "MODE.  THESE  VALIDATED  PRICES,  OFTEN  REFERRED  TO  AS  " 
LOCATE  13, 10: PRINT  "VALUE  BASED  PRICES,  ARE  ATTEMPTS  TO  DEFINE  WHAT  THE" 
LOCATE  15, 10: PRINT  "ITEM  'SHOULD  COST'  IF  IT  WERE  ACQUIRED  UNDER  COMPET I — " 
LOCATE  17, 10: PRINT  "TIVE  CONDITIONS.  REVIEWS  MAY  BE  ACCOMPLISHED  AS  " 
LOCATE  19, 10: PR I NT  "EITHER  LEVEL  I  OR  LEVEL  II  REVIEW." 

GOSUB  2620: CLS: GOTO  2980 

REM  THIS  IS  THE  HELP  FOR  QUESTION  2  ON  SCREEN  2 

CLS: LOCATE  2, 5: PRINT  "QUESTION  2, SCREEN  2" 

LOCATE  4,5: PRINT  "WILL  THIS  BE  A  LEVEL  I  ANALYSIS?  (Y/N) " 

LOCATE  7 , 10: PR I NT  "A  LEVEL  I  ANALYSIS  IS  MORE  OF  A  LIMITED  REVIEW  IN  WHICH' 

LOCATE  9 , 10: PR I  NT  "THE  LAST  PRICE  PAID  IS  REVIEWED  AGAINST  THE  EXISTING" 
LOCATE  11,  10: PR I  NT  "DOCUMENTATION  TO  DETERMINE  IF  THAT  PRICE  IS  OUT  OF" 
LOCATE  13, 10: PRINT  "LINE  WITH  THE  VALUE  OF  THE  ITEM.  THESE  LEVEL  I  " 
LOCATE  15,  10: PR I  NT  "REVIEWS  ARE  ACCOMPLISHED  RELATIVELY  QUICKLY. 

LOCATE  17, 10: PR I NT  "A  LEVEL  II  ANALYSIS  IS  MUCH  MORE  EXTENSIVE  AND  IN-" 
LOCATE  19,  10:  PF.'INT  "CLUDES  MATERIAL,  PROCESS,  AND  LABOR  ESTIMATES." 

LOCATE  21, 10: PRINT  "LEVEL  I  ANALYSIS  USUALLY  REQUIRES  ABOUT  1  HOUR  OF" 
LOCATE  23, 10: PRINT  "EFFORT  AND  A  LEVEL  II  ABOUT  12.5  HOURS." 

GOSUB  2620: CLS: GOTO  2980 

REM  THIS  IS  THE  HELP  FOR  QUESTION  3  ON  SCREEN  2 

CLS: LOCATE  2, 5: PRINT  "QUESTION  3, SCREEN  2" 

LOCATE  4, 5: PRINT  "WHAT  WILL  BE  THE  AVERAGE  GRADE  OF  THE  ANALYSTS?" 

LOCATE  7 , 10: PR I NT  "ADD  THE  GRADES  OF  THE  ANALYSTS  AND  DIVIDE  BY  THE  " 
LOCATE  9, 10: PRINT  "NUMBER  OF  ANALYSTS  AND  THEN  SELECT  THE  NEAREST 
LOCATE  11, 10: PRINT  "WHOLE  NUMBER.  THE  MODEL  ACCEPTS  NUMBERS  FROM  7  " 
LOCATE  13, 10: PRINT  "TO  15.  " 

GOSUB  2620: CLS: GOTO  2980 

REM  THIS  IS  THE  HELP  FOR  QUESTION  4  ON  SCREEN  2 

CLS: LOCATE  2, 5: PRINT  "QUESTION  4, SCREEN  2" 

LOCATE  4, 5: PRINT  "HOW  MANY  SOURCE  APPROVALS  WILL  BE  REQUIRED?" 

LOCATE  7,10: PRINT  "THIS  IS  THE  REVIEW  OF  POTENTIAL  SOURCES  BY  REVIEWING" 
LOCATE  9 , 10: FR I NT  "THE  DOCUMENTATION  SUBMITTED  BY  THE  POTENTIAL  SOURCE" 
LOCATE  11, 10: PRINT  "INDEPENDENT  OF  ANY  SPECIFIC  REQUEST  BY  THE  AIR  FORCE." 
LOCATE  15, 10: PRINT  "THIS  SOURCE  APPROVAL  USUALLY  REQUIRES  ABOUT  20  HOURS" 
LOCATE  17, 10: PRINT  "OF  EFFORT  BY  THE  GOVERNMENT." 

GOSUB  2620: CLS: GOTO  2980 

REM  THIS  IS  THE  HELP  FOR  QUESTION  5  ON  SCREEN  2 

CLS: LOCATE  2, 5: PRINT  "QUESTION  5, SCREEN  2" 

LOCATE  4, 5: PRINT  "HOW  MANY  PLANT  VISITS  FOR  THIS  SOURCE  AFP.?" 

LOCATE  7, 10: PRINT  "ENTER  THE  NUMBER  OF  PLANNED  VISITS." 

GOSUB ' 2620 : CLS : GOTO  2980 

REM  THIS  IS  THE  HELP  FOR  QUESTION  6  ON  SCREEN  2 

CLS: LOCATE  2, 5: PRINT  "QUESTION  6, SCREEN  2" 

LOCATE  4, 5: PRINT  "HOW  MANY  AF  PERS  WILL  MAKE  THESE  VISITS?" 

LOCATE  7 , 10: FR I NT  "ENTER  THE  AVERAGE  NUMBER  OF  TRAVELERS  OF  EACH" 

LOCATE  9, 10: PRINT  "OF  THE  SOURCE  APFROVAL  VISITS. 

GOSUB  2620: CLS: GOTO  2930 

REM  THIS  IS  THE  HELP  FOR  QUESTION  7  ON  SCREEN  2 

CLS: LOCATE  2, 5: PRINT  "QUESTION  7, SCREEN  2" 

LOCATE  4,  5:  PRINT  "WHAT  IS  THE  AVERAGE  GRADE  OF  THESE  VISITORS'?" 
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THE  VISITORS  AND  DIVIDE  BY" 
PERSONNEL  AND  THEN  SELECT" 


LOCATE  7, 10: PRINT  "ADD  THE  GRADES  OF 
LOCATE  9, 10: PRINT  "BY  THE  NUMBERS  OF 
LOCATE  11, 10: PRINT  "THE  NEAREST  WHOLE  NUMBER.  " 

LOCATE  13, 10:FRINT  "THE  MODEL  WILL  ACCEPT  7  TO  15  AS  ENTRIES. 

GOSUB  2620: CLS: GOTO  2980 

REM  THIS  IS  THE  HELP  FOR  QUESTION  8  ON  SCREEN  2 

CLS  .-LOCATE  2,  5:  PRINT  "QUESTION  8,  SCREEN  2" 

LOCATE  4, 5: PRINT  "WILL  THIS  BE  A  SOLE  SOURCE  PROCUREMENT? 

LOCATE  7 , 10: PR I NT  "SELF  EXPLAINATORY _ SELECT  Y  OR  N  " 

GOSUB  2620: CLS: GOTO  2980 

REM  THIS  IS  THE  HELP  FOR  QUESTION  1  ON  SCREEN  3 

CLS: LOCATE  2, 5: PRINT  "QUESTION  1 , SCREEN  3" 

LOCATE  4,5:  F*RINT  "WILL  REVERSE  ENGINEERING  BE  ATTEMPTED?  (Y/N)" 

7, 10: PRINT  "REVERSE  ENGINEERING  (RE)  CAN  RANGE  FROM  SIMPLE" 
9,10: PR I NT  "SUBSTITUTION  OF  GOVERNMENT/ I NDUSTRY  SPECIFICATIONS" 


(Y/N) 


LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 


11,  10: PRINT 
13, 10: PRINT 
15, 10: PRINT 
17, 10: PRINT 
19, 10: PRINT 
GOTO 


"WHEN  CONTRACTOR  SPECIFICATIONS  ARE  MISSING  OR  THE  1 
"GOVERNMENT  LACKS  RIGHTS  IN  DATA  FOR  THE  CONTRACTOR 
"SPECIFICATIONS  TO  DEVELOPMENT  OF  A  MAJOR  PROTION 
"OF  THE  ENGINEERING  DOCUMENTATION  NEEDED  TO  PRODUCE 
"THE  ITEM.  TWO  LEVELS  OF  RE  ON  EFFORT  ARE  AVAILABLE. 
3520 

SCREEN  3 


LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 


1 1 , 10: PRINT 
13, 10: PRINT 
15, 10: PRINT 
17, 10: PRINT 
19, 10: FR I NT 
21, 10: PRINT 
23, 10: PRINT 


GOSUB  2620: CLS: 

REM  THIS  IS  THE  HELP  FOR  QUESTION  2  ON 

CLS: LOCATE  2, 5: PRINT  "QUESTION  2, SCREEN  3" 

LOCATE  4, 5: PRINT  "WIlL  IT  BE  A  LEVEL  I  EPPORT  ?  (Y/N)" 

7 , 1 0 : PR I NT  "NORMALLY  LEVEL  1  CAN  BE  ACCOMPLISHED  BY  REVIEW" 

9 , 10: PR I NT  "OF  AVAILABLE  DATA  AND  USE  OF  GENERAL  ENGINEERING" 

"KNOWLEDGE.  PHYSICAL  MEASURING  AND  ANALYSIS  OF  THE" 
"PART  IS  NOT  NECESSARY. 

"LEVEL  II  ANALYSIS  IS  MORE  EXTENSIVE  THAN  LEVEL  I  AND" 
"INCLUDES  MEASURING  AND  ANALYSIS  OF  THE  PART." 

"LEVEL  I  EFFORT  IS  MEASURED  AS  0.1  HOURS  TIMES  THE" 
"NUMBER  OF  CHASS  I  DRAWINGS.  THE  LEVEL  II  MULTI-" 
"F'LIER  IS  4.0  HOURS  PER  CLASS  I  DRAWING." 

GOSUB  2620: CLS: GOTO  430 

REN  THIS  IS  THE  HELP  FOR  QUESTION  3  ON  SCREEN  3 

CLS: LOCATE  2, 5: PRINT  "QUESTION  3, SCREEN  3" 

LOCATE  4,5:  PR  I  NT  "THE  AVERAGE  GRADE  OF  THESE  ENGINEER'S  WILL  BE..." 

LOCATE  7 , 10: PR I NT  "COMPUTE  AS  WITH  OTHER  AVERAGE  GRADE  USING  THE  GRADES" 
LOCATE  9 , 10: PR I NT  "OF  THE  ENGINEERS  INVOLVED.  REMEMBER  THE  MODEL  WILL" 
LOCATE  11, 10: PR I NT  "ACCEPT  ONLY  WHOLE  NUMBERS  FROM  7  TO  15." 

GOSUB  2620: CLS: GOTO  3520 

REM  THIS  IS  THE  HELP  FOR  QUESTION  4  ON  SCREEN  3 

CLS: LOCATE  2, 5: PRINT  "QUESTION  4, SCREEN  3" 

LOCATE  4,5: PRINT  "WILL  A  PRE-AWARD  SURVEY  BE  CONDUCTED^  (Y/N)" 

7,  10:  PRINT  "WHEN  A  NEW  SOURCE  IS  BEING  CONSIDERED  FOR  AWARD,  IT"' 

9,  10:  PRINT  "IS  NECESSARY  THAT  THE  GOVERNMENT  MAKE  AIM  ASSESSMENT" 
11, 10: PRINT  "OF  THE  RESPONSIBILITY  AND  RESPONSIVENESS  OF  THE" 

13, 10: PR I NT  "OFFEROR.  THE  SURVEY  MAY  REQUIRE  A  VISIT  TO  THE  " 

15, 10: PRINT  "OFFEROR'S  FACILITY.  RECENT  ESTIMATES  INDICATE  THAT" 
17, 10: PRINT  "1/3  OF  NEW  OFFERORS  WILL  REQUIRE  A  PAS  AND  THAT  40" 


LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 
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AN  ON  SITE  VISIT." 
h  WHEN  ON  SITE  REQUIRED. 
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ON \SCREEN 


(Y/N) 


GOSUB  2620: CLS: GOTO  3520 

REM  THIS  IS  THE  HELP  FOR  QUESTION  5 

CLS: LOCATE  2, 5: PRINT  "QUESTION  5, SCREEN  3" 

LOCATE  4, 5: PRINT  "WILL  THIS  SURVEY  REQUIRE  ON  SITE  VISITS? 

LOCATE  7,ld>:F'RINT  "SELF  EXPLAINATORY.  ...  SELECT  Y  OR  N  " 

GOSUB  2620: CLS: GOTO  3520 

RE,V*  THIS  IS  THE  HELP  FOR  QUESTION  6  ON  SCREEN  3 

CLS: LOCATE  2, 5: PRINT  "QUESTION  6, SCREEN  3" 

LOCATE  4, 5: PRINT  "HOW  MANY  VISITS  WILL  BE  REQUIRED?" 

LOCATE  7,10: PRINT  "SELF  EXPLAINATORY. ...  ENTER  NUMBER." 

GOSUB  2620: CLS: GOTO  3520 

REM  THIS  IS  THE  HELP  FOR  QUESTION  7  ON  SCREEN  3 

CLS: LOCATE  2, 5: PRINT  "QUESTION  7, SCREEN  3" 

LOCATF  4.  S:  P.p  TNT  "HIHaI  MflWV  PFRRnNNFI  TIM  THF  &P  WTCTT  TrOMO  n 

I  O'-'  ■-  • 

GOSUB  2620: CLS: GOTO  3520 

RE^  THIS  IS  THE  HELP  FOR  QUESTION  8  ON  SCREEN  3 

CLS: LOCATE  2, 5: PRINT  "QUESTION  8, SCREEN  3" 

LOCATE  4, 5: PRINT  "WHAT  IS  THE  AVE.  GS  GRADE  OF  THIS  TEAM?" 

LOCATE  7, lU:PRINT  "ADD  THE  GRADES  OF  THE  TEAM  MEMBERS  AND  DIVIDE  BY  THE 
LOCATE  9, 10: PRINT  "NUMBER  OF  TEAM  MEMBERS  AND  THEN  SELECT  THE  NEAREST 
LOCATE  11, 10: PRINT  "WHOLE  NUMBER.  THE  MODEL  ACCEPTS  WHOLE  NUMBERS 
LOCATE  13. 10: PRINT  "FROM  7  TO  15.  " 

GOSUB  2620: CLS: GOTO  3520 

REM  THIS  IS  THE  HELP  FOR  QUESTION  1  ON  SCREEN  4 

CLS  .-LOCATE  2,  5:  PRINT  "QUESTION  1 ,  SCREEN  4" 

LOCATE  4, 5: PRINT  "IS  THIS  ANALYSIS  FOR  MORE  THAN  ONE  I TEMP 
LOCATE  7 ,  ld>:  PR  I  NT  "SELF  EXPLANATORY 
LOCATE  9, 10: PRINT  "  ANSWER  WITH  Y  FOR  YES 

LOCATE  11,  Id):  PRINT  "  N  FOR  NO 

GOSUB  2620: CLS: GOTO  4060 

RE*V)  THIS  IS  THE  HELP  FOR  QUESTION  2  ON  SCREEN  4 

CLS: LOCATE  2, 5: PRINT  "QUESTION  2, SCREEN  4" 

LOCATE  4, 5: PRINT  "  HOW  MANY  CLASS  1  (8.5  BY  11)  DRAWINGS?" 

LOCATE  7, 10: PRINT  "COUNT  THE  TOTAL  NUMBER  OF  THESE  CLASS  1 


(Y/N) 


INCHES, 


8.5  INCHES" 
DRAWINGS  FOR  ALL  OF  THE  CBO  ITEM(S)." 


LOCATE  9, 10: PRINT  "BY  11 
GOSUB  2620: CLS: GOTO  4060 

REM  THIS  IS  THE  HELP  FOR  QUESTION  3  ON  SCREEN  4 

CLS: LOCATE  2, 5: PRINT  "QUESTION  3, SCREEN  4" 

LOCATE  4, 5: PRINT  "WHAT  IS  THE  WEIGHT  OF  THE  ITEM(S)P" 
LOCATE  7, 10: PRINT  "ENTER  THE  TOTAL  ITEM(S)  WEIGHT  IN 
LOCATE  9, 10: PRINT  "  IF  57  POUNDS ....  ENTER  57" 

GOSUB  2620: CLS: GOTO  4060 

REM  THIS  IS  THE  HELP  FOR  QUESTION  4  ON  SCREEN  4 

CLS: LOCATE  2, 5: PRINT  "QUESTION  4, SCREEN  4" 

LOCATE  4,  5: PRINT  "WHAT  IS  THE  TOTAL  SPO  BUDGET?" 

LOCATE  7 ,  10: PR I  NT  "ENTER  THE  TOTAL  BUDGET  FOR  THE  CURRENT 


POUNDS. 


LIFE  OF  THE  SPO, 


'■0  LOCATE  9,  10:  PRINT  "OF  THE  SPO. 


A. 2. 21. 


11000  LOCATE  4, 5:  PRINT  "WHAT  IS  THE  AVE.  GRADE  OF  THE  CONTRACTING  TEAM'7" 
11010  LOCATE  7, 10: PRINT  "THIS  IS  THE  GROUP  OF  AF  CONTRACTING  PERSONNEL" 
11020  LOCATE  9,10:PRINT  "THAT  ARE  RESPONSIBLE  FOR  THE  CONTRACTING  EFFORTS" 
11030  LOCATE  11, 10: PRINT  "ASSOCIATED  WITH  THE  CBO  ITEM(S).  COMPUTE  THE  "  - 
11040  LOCATE  13, 10:PRINT  "AVERAGE  GRADE  AS  NOTED  IN  PREVIOUS  QUESTIONS, 

11050  LOCATE  15, 10: PRINT  "  DON'T  FORGET - ONLY  7  TO  15  ARE  ACCEPTABLE  " 

11060  GOSUB  2620: CLS: GOTO  5130  . 

11070  REM  THIS  IS  THE  HELP  FOR  QUESTION  2  ON  SCREEN  6 


11080  CLS: LOCATE  2, 5: PRINT  "QUESTION  2, SCREEN  6" 

11090  LOCATE  4,  5:  PRINT  "HOW  MANY  SOURCES  WILL  BE  DEVELOPED”7" 

11100  LOCATE  7, 10: PRINT  "SOURCE  DEVELOPMENT  USUALLY  INCLUDES  ACTIONS  TAKEN" 
11110  LOCATE  9, 10: PRINT  "BY  THE  AIR  FORCE  TO  VALIDATE  THE  CAPABILITY  OF  A  " 
11120  LOCATE  11, 10: PRINT  "SECOND  SOURCE  FOR  A  NONCOMPETITIVE  ITEM  OR  A  " 

11130  LOCATE  13, 10: PRINT  "SINGLE  SOURCE  FOR  AN  ITEM  WHICH  HAS  NO  KNOWN" 

11140  LOCATE  15, 10: PRINT  "SOURCES." 

11150  LOCATE  19, 1U:PRINT  "SOURCE  DEVELOPMENT  AVERAGES  120  HOURS  OF  GOVERNMENT 
11160  LOCATE  21, 10: PRINT  "EFFORT." 

11170  GOSUB  2620: CLS: GOTO  5130 


1  1  180 
11190 
1  1 200 
1 1210 
1 1220 
1  1230 
(  7  40 

1 1 250 
1 1260 
11270 
1  1280 
1  1290 
1 1300 
1  1310 
1 1 320 
1  1330 
1 1 340 
1  1350 


REM  THIS  IS  THE  HELP  FOR  QUESTION  3  ON  SCREEN  6 

CLS: LOCATE  2, 5: PRINT  "QUESTION  3, SCREEN  6" 

LOCATE  4, 5: PRINT  "HOW  MANY  PLANT  VISITS  FOR  SOURCE  DEVELOPMENT? 
LOCATE  7,10: PRINT  "SELF-EXPLANATORY.  ENTER  THE  NUMBER." 

GOSUB  2620: CLS: GOTO  5130 

REM  THIS  IS  THE  HELP  FOR  QUESTION  4  ON  SCREEN  6 

CLS: LOCATE  2, 5: PRINT  "QUESTION  4, SCREEN  6" 

LOCATE  4, 5:  PRINT  "HOW  MANY  AF  VISITORS  ON  EACH  TRIP'7" 

LOCATE  7, 10: PRINT  "THIS  MAY  VARY  FROM  TRIP  TO  TRIP  SO  USE  AN  AVERAGE. 
LOCATE  9, 10: PRINT  "INCLUDE  BOTH  MILITARY  AND  CIVILIAN  AF  PERSONNEL  " 
GOSUB  2620: CLS: GOTO  5130 

REM  THIS  IS  THE  HELP  FOR  QUESTION  5  ON  SCREEN  6 

CLS  .-LOCATE  2,  5:  PRINT  "QUESTION  5,  SCREEN  6" 

LOCATE  4,5:  F'RINT  "WHAT  WILL  BE  THEIR  AVERAGE  GRADE?" 

LOCATE  7, 10: PRINT  "THIS  IS  THE  AVERAGE  GRADE  OF  THE  VISITORS  IN  THE  1 
LOCATE  9, 10: PRINT  "PREVIOUS  QUESTION.  THE  MODEL  WILL  ACCEPT  GRADES" 
LOCATE  11, 10: PRINT  "FROM  7  TO  15." 

GOSUB  2620: CLS: GOTO  5130 


11360  REM  THIS  IS  THE  HELP  FOR  QUESTION  6  ON  SCREEN  6 

11370  CLS: LOCATE  2, 5: PRINT  "QUESTION  6, SCREEN  6" 

11380  LOCATE  4,  5:  PRINT  "HOW  MANY  EMPLOYEES  AT  THE  NEW  CONTRACTOR'S  FACILITY”7" 
11390  LOCATE  7,10:PRINT  "THIS  IS  THE  TOTAL  OF  EMPLOYEES  AT  ALL  OF  THE  " 

11400  LOCATE  9, 10:PRINT  "FACILITIES  ENGAGED  IN  THE  CBO  ITEM(S)  " 

11410  GOSUB  2620: CLS: GOTO  5130 


1  1 420 
1 1430 
11440 
1  1 450 
1  1  460 
1  1 470 
1 1480 
190 


THIS  IS  THE  HELP  FOR  QUESTION  7  ON  SCREEN  6 
CLS: LOCATE  2, 5: PRINT  "QUESTION  7, SCREEN  6" 

LOCATE  4, 5: PRINT  "WHAT  IS  THE  HIGHEST  CLASSIFICATION  OF  THE  CBO  ITEM(S) 
7, 10: PRINT  "THE  MODEL  WILL  ACCEPT  UNCLAS  FOR  UNCLASSIFIED" 

9,10: PRINT  "  CONF  FOR  CONFIDENTIAL" 

11, 1U: PRINT  "  SEC  FOR  SECRET" 

1-v,  1U:  PRINT  "  TSEC  FOR  TOP  SECRET" 

15, lO: PRINT  "  FMTFR  ONLY  THESE  VARIABLES." 


LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 


A. 2. 24. 


“00  GOSUB  2620: CLS: GOTO  5130 

-510  REM  THIS  IS  THE  HELP  FOR  QUESTION  8  ON  SCREEN  6 

1520  CLS: LOCATE  2, 5: PRINT  "QUESTION  8, SCREEN  6" 

1530  LOCATE  4 ,5 : PRINT  "THE  NUMBER  OF  NEW  CONTR  PERS  REQUIRING  CLEARANCES 


1540 
1550 
1 560 
1570 
1580 
1 590 
1 600 
l  6 1 0 
1620 
1 630 
1640 
1 650 
1660 
1670 
1 680 
L  690 
l  700 
1710 
1720 
i  730 
740 
.  750 
.760 
.  770 
780 
790 
800 
.810 
820 
.  e.3o 
840 
850 
860 
870 
880 
890 
900 
.  9 1 0 
920 
930 
940 
950 
960 
970 
980 
990 


1  ON  SCREEN  7 
7" 

SOURCE  SELECTION?" 

ANTICIPATED  NUMBER  OF  PROPOSALS" 
EVALUATED  BY  THE  SPO  TEAM. " 

2  ON  SCREEN  7 


SOURCE  SELECTION' 
7  TO  15. " 


LOCATE  7, 10: PRINT  "ENTER  THE  NUMBER  OF  PERSONNEL  AT  THE  NEW  CONTRACTOR'S" 
LOCATE  9, 10: PRINT  "FACILITY  THAT  WILL  REQUIRE  CLEARANCES  THAT  THEY  " 
LOCATE  11, 10: PRINT  "DO  NOT  CURRENTLY  POSSES." 

LOCATE  13, 10: PR I NT  " 

GOSUB  2620: CLS: GOTO  5130 

REM  THIS  IS  THE  HELP  FOR  QUESTION 

CLS: LOCATE  2, 5: PRINT  "QUESTION  1 , SCREEN 
LOCATE  4, 5: PRINT  "HOW  MANY  PROPOSALS  IN 
LOCATE  7, 10: PR I NT  "THIS  IS  THE  KNOWN  OR 
LOCATE  9, 10: PRINT  "THAT  WILL  HAVE  TO  BE 
GOSUB  2620: CLS: GOTO  5660 

REM  THIS  IS  THE  HELP  FOR  QUESTION 

CLS: LOCATE  2, 5: PRINT  "QUESTION  2, SCREEN  7" 

LOCATE  4,5:  FR I  NT  "HOW  MAY  AF  F’EOFLE  IN  THE  SOURCE  SELECTION^" 

LOCATE  7,10:PRINT  "THIS  IS  THE  NUMBER  OF  PERSONNEL  THAT  WILL  PARTICIPATE" 
LOCATE  9 , 10: PR I  NT  "IN  THE  SOURCE  SELECTION  PROCESS." 

GOSUB  2620: CLS: GOTO  5660 

REM  THIS  IS  THE  HELP  FOR  QUESTION  3  ON  SCREEN  7 

CLS: LOCATE  2, 5: PRINT  "QUESTION  3, SCREEN  7" 

LOCATE  4, 5: PRINT  "WHAT  IS  THEIR  AVERAGE  GRADE?" 

LOCATE  7, 10: PRINT  "DETERMINE  THE  AVERAGE  GRADE  OF  THE 
LOCATE  9, 10: PR I NT  "TEAM  AND  ENTER  A  WHOLE  NUMBER  FROM 
GOSUB  2620: CLS: GOTO  5660 
REM  THIS  IS  THE  HELP  FOR  QUESTION  4  ON  SCREEN  7 

CLS: LOCATE  2, 5: PRINT  "QUESTION  4, SCREEN  7" 

LOCATE  4, 5: PRINT  "MONTHS  OF  SPO  CBO  MGT  RESPONSIBILITY  IS...?" 

7, lo: PRINT  "THIS  IS  THE  TOTAL  TIME  FROM  BEGINNING  SCREENING  TO" 

9, 10: PRINT  "DELIVERY  OF  THE  FINAL  CBO  ITEM  TO  THE  PRIME.  ENTER" 
11, 10: PRINT  "THE  NUMBER  OF  MONTHS  REQUIRED  OF  THIS  ACTIVITY  " 

13, 10: PRINT  " 

GOSUB  2620: CLS: GOTO  5660 

REM  THIS  IS  THE  HELP  FOR  QUESTION  5  ON  SCREEN  7 

CLS: LOCATE  2, 5: PRINT  "QUESTION  5, SCREEN  7" 

LOCATE  4, 5: PRINT  "AVE.  HRS.  PER  WEEK  IN  GEN.  CBO  MANAGEMENT  IS... 9" 

7,10: PRINT  "THIS  IS  AN  ESTIMATE  OF  THE  TIME  DEVOTED  TO  THE  " 

9 ,  10:  PR I NT  "MANAGEMENT  OF  THE  CBO  ITEMS  BY  THE  SPO.  ENTER" 

11, 10: PR I NT  "THE  AVERAGE  NUMBER  OF  HOURS  DEVOTED  TO  THE  " 

13,10: PRINT  "MANAGEMENT  OF  THE  CBO  ITEMS  BY  SPO  PERSONNEL  " 

GOSUB  2620: CLS: GOTO  5660 

REM  THIS  IS  THE  HELP  FOR  QUESTION  6  ON  SCREEN  7 

CLS: LOCATE  2, 5: PRINT  "QUESTION  6, SCREEN  7" 

LOCATE  4,  b:  PRINT  "AVE.  GRADE  OF  THE  SPO  CBO  MANAGEMTN  TEAM  IS 

7,10:  PRINT  "THIS  IS  THE  AVERAGE  GRADE  OF  THE  SPO  TEAM  RESPONSIBLE' 
LOCATE  9, 10: PRINT  "FOR  THE  MANAGEMENT  OF  THE  CBO  ITEMS  FROM  THE  START" 
LOCATE  11, 10: PRINT  "OF  SCREENING  TO  THE  DELIVERY  TO  THE  PRIME  " 

GOSUB  2620: CLS: GOTO  5660 


LOCATE 

LOCATE 

LOCATE 

LOCATE 


LOCATE 

LOCATE 

LOCATE 

LOCATE 


A. 2. 25. 


.000 
20 1 0 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
21 10 
2120 
2130 
•2140 
2150 
2160 
2170 
2180 
2190 


REM 


THIS  IS  THE  HELP  FOR 


QUESTION  7  ON  SCREEN  7 
CLS: LOCATE  2, 5: PRINT  "QUESTION  7, SCREEN  7" 

LOCATE  4, 5: PRINT  "HOW  MANY  SOLICITATION  SETS  WILL  BE  SENT  OUT?" 

LOCATE  7, 10: PRINT  "THE  SOLICITATION  OR  BID  SETS  ARE  THOSE  PACKAGES  THAT" 
9,  10:  PRINT  "ARE  PREPARED  BY  THE  GOVERNMENT  TO  SOLICIT  BIDS  PROM'" 
11, 10: PRINT  "POTENTIALLY  INTERESTED  VENDORS.  THESE  SETS  DESCRIBE 
"THE  AIR  FORCE  REQUIREMENTS  AND  THE  PROPOSED  CONTRAC- 
"TING  APPROACH  TO  THE  PROCUREMENT." 


LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 


1  *.* , 
15 


10: PRINT 
10: PRINT 
19, 10: PRINT 
21, 10: PRINT 


SOLICITATION  SETS 


GENERALLY  COST 
SETS  PRODUCED. 1 


$10.00  EACH. 


"THESE 

"ENTER  THE  NUMBER  OF  BID 
GOSUB  2620: CLS: GOTO  5660 

REM  THIS  IS  THE  HELP  FOR  QUESTION  B  ON  SCREEN  7 

CLS: LOCATE  2, 5: PRINT  "QUESTION  B, SCREEN  7" 

LOCATE  4,5: PR I NT  "WHAT  IS  THE  AVE.  NO.  OF  PERSONNEL  IN  THE  SPO?" 

LOCATE  7 , 10: PRINT  "THIS  IS  THE  NUMBER  OF  PERSONNEL  IN  THE  SPO  FROM  ITS" 
LOCATE  9, 10: PRINT  "BEGINNING  AS  DETERMINED  BY  THE  BEGINNING  OF  A  BUDGET" 
LOCATE  11, 10: PRINT  "TO  THE  END  OF  THE  CURRENT  BUDGET.  COMPUTE  THE  " 
LOCATE  13, 10: PRINT  "AVERAGE  NUMBER  OF  SPO  PERSONNEL  DURING  THIS  PERIOD." 
LOCATE  15, 10: PR I NT  "  ENTER  THIS  NUMBER." 

GOSUB  2620: CLS: GOTO  5660 


A. 2. 26. 


A.  COMPUTER  PROGRAMS 

A.  3  CALCULI 


A. 3.1. 


/I 


10  REM  THIS  IS  THE  CALCULATIONS  PROGRAM 

REM  . CALCUU.  BAS . 

DIM  A 1  $  ( 1 0 )  ,  A2*(10)  ,  A3*  (10)  ,  A4$(10)  ,  A5$<10)  ,A6*(10)  ,  A7$  (10)  , A8*(10) 
10  DIM  A1 (10) , A2 (10) , A3 (10) , A4(10) , A5<10) ,A6(10) , A7(10) , A8(10) 

50  CLS 
60  KEY  OFF 

70  REM  THIS  IS  A  SQUARE  SCREEN  PROGRAM 
30  CLS 

?0  LOCATE  3,5 
100  PRINT  " 

II  — — —  —  —  —  —  - 


110  LOCATE  4,5 

120  PRINT  "  ///////////////////////////////////////////////////////////////// 


130  LOCATE 
L 40  PRINT  ' 
‘  /  /  \  " 


////////////////////////////////////////////////////////////////// 


150  LOCATE  6,5 


160  PRINT  "::!!!!  i  !!  j  ; 


I  I  I  I  I 


I  /  I  II 
I  /  I 


.70  FOR  I  =  7  TO  23 
80  LOCATE  1,5 
90  PRINT  " ! ! 

I  /  I  II 
I  /  I 

100  NEXT  I 
MO  LOCATE  9,5 
0  PRINT  " ! ! 

•30  LOCATE  13,5 
:40  PRINT  "  I  ! 
i  /  I  " 

:50  LOCATE  17,5 
i60  PRINT  "  !  ! 

!  /  !  " 

'70  LOCATE  21,5 

:bo  print  m  i  :  ‘ 

•  /  i  ii 

i  /  i 

.'90  LOCATE  22,5 

■00  PRINT  "  !  !  by  PJSA,  Inc. 

i  /  I  II 
i  /  I 


COMPONENT  BREAKOUT 


OFFSETTING  COST  MODELING 


COMPUTATIONAL  RESULTS 


1987 


(10  LOCATE  24,5 


20 
:  /" 


PRINT 


•30  BEEP 

•40  1=1:  FOR  I  =  1  TO  2000: NEXT: CLS 
‘•50  REM 
•  60  KEY  OFF 
(70  CLS 

•80  LOCATE  3,  10 

■  90  PRINT  ’'a#**##*##########**##*#*#########*###*#*##  *  *  *  tttt  %  %*.*.*%■*.*%  %  %  %  %  %  %%  " 


A. 3. 2. 


10 

20 

30 

40 

50 

60 

.70 

80 

90 

00 

1  (■) 

20 

30 

40 

50 

60 

70 

80 

90 

00 

10 

20 

30 

40 

60 

70 

SO 

90 

00 

10 

20 

30 

40 

50 

60 

70 

30 

90 

00 

10 

20 

30 

40 

50 

60 

70 

30 

:50 


THE  FOLLOWING  FILES  ARE  AVAILABLE 


*" 


* ' 


LOCATE  4,10 
PRINT  "* 

LOCATE  5,10 
PRINT  "* 

LOCATE  6,10 
PRINT  "* 

LOCATE  7,10 

PRINT  "a**************************************** **#*##*##*# *************  " 
LOCATE  9, 5: FILES  "*.DAT" 

LOCATE  20, 15 

INPUT  "WHAT  PROGRAM  DO  YOU  WISH  TO  RUN  (NAME. DAT) NAMN03 
REM  ..  .. 

KEY  OFF 
REM 

REM  THIS  IS  THE  COST  ESTIMATING  SECTION  FOR  THE  SPO 

REM 


>$  ( I )  , A4$ ( I )  , A5$ ( I ) , A6$ ( I )  , A7$ ( I ) , A8$ ( I ) 


KEY  OFF 

REM  ******************** ***************** ************* ********** 

REM  THIS  SECTION  ENTERS  PREVIOUS  DATA  INTO  THE  MODEL  FOR  CALCULATION. 
REM  **************************** ******************************** 

OPEN  NAMNOS  FOR  INPUT  AS  #1 
FOR  I  =  1  TO  7 
INPUT  #  1 ,  A 1  $  ( I )  ,  A2$  ( I )  ,  A: 

NEXT 
CLOSE  #1 

A 1 ( 1 ) =VAL ( A 1  $ ( 1 ) ) :A2(1)=VAL(A2$(1> ) : A3 ( 1 ) =VAL ( A3* ( 1 ) )  :  A4 ( 1 ) -VAL ( A4$ ( 1 )  ) 
A5 ( 1 ) =VAL ( A5$ ( 1 ) ) : A6 ( 1 ) =VAL  (A6$ ( 1 ) ) : A7 ( 1 ) =VAL  (A7$ ( 1 ) ) : A8 ( 1 ) =VAL  < A8£ ( 1 ) ) 
A3 (2) =VAL (A3$  (2)  )  :  A4 (2 ) =VAL ( A4$  (2)  )  :  A5  (2)  =VAL  <A5$  (2)  )  :  A6  (2)  =VAL  (A65  (2)  ) 
A7 (2) =VAL (A7$ (2) ) 

A3  (3)  =VAL  (A3$  (3)  )  :  A6  (3)  =VAL  (A6$  (3)  ) 

A2 ( 4 ) =VAL ( A2$ ( 4 ) ) : A3 ( 4 ) =VAL ( A3$ ( 4 ) ) 

A7 (4) =VAL ( A7$ (4) ) : A8 (4) =VAL (A8$ (4) ) 

A3 (5) =VAL <A3$ (5) ) 

A4 (5) =VAL (A4$ (5) ) 

A8 (5) =VAL ( AB$ (5) ) 

A 1 (6) =VAL (Al$ (6) ) 

A5(6)=VAL(A5$(6) ) 

A 1 (7) =VAL (Al$ (7) ) 


: A7 (3) =VAL (A7$ (3) ) 
: A4 (4) =VAL  (A4$ (4)  ) 


A8 (3) =VAL (A8$ (3) ) 
A5 (4) =VAL  <A5$ (4)  ) 


A5 (5) =VAL (A5$ (5) )  :  A6 (5) =VAL (A6$ (5) ) : A7 (5) =VAL  ( A7$  (5)  ) 


: A2 (6)=VAL (A2$ (6) ) : A3 (6) =VAL ( A3* (6) ) : A4 (6) =VAL ( A4* (6) ) 
: A6 (6) =VAL (A6$ (6) ) : A7 (6) =VAL (A7$ (6) ) : A8 (6) =VAL ( A8S (6) ) 
:A2(7)=VAL(A2$(7) ) : A3 (7) =VAL (A3* (7) ) : A4 ( 7 ) =VAL ( A4* ( 7 ) ) 
A5 (7) =VAL (A5* (7) ) : A6 (7) =VAL (A6* (7) ) : A7 (7) =VAL ( A7* (7) ) : A8 (7) =VAL (A8* (7) ) 
REM  THIS  IS  THE  SCREENING  COST  SECTION 
REM 

KEY  OFF 


CLS 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


********************************************  **************** 

THIS  IS  THE  SCREENING  COST  SECTION 

*********************************************  *************** 
Al(l) — NO.  OF  PEOPLE  INVOLVED  IN  SCREENING. 

A2 ( 1 ) — AVERAGE  GRADE  OF  PEOPLE  I NVLOLVED  IN  SCREENING. 

A3 ( 1 ) — TOTAL  TIME  IN  WEEKS  OF  SCREENING  PROCESS. 

A4(l) — PERCENTAGE  OF  TIME  SPENT  IN  SCREENING  PROCESS. 


A. 3.3. 


-  _  REM  THIS  IS  THE  CALCULATION  OF  THE  PERSONNEL  REQUIRED 
9 1 0  SH=A 1(1) * A3 ( 1 ) * A4 ( 1 ) # ( . 01 ) * ( 40 ) t ( 1 760/^080 ) 

920  REM  '  ' 

9-.0  REM  THESE  ARE  1  HE  SALARIES  FOR  THE  EMPLOYEES  AND  ARF  S 
940  REM 

950  IF  A2 ( 1 ) =7  THEN  SAS=25546: GOTO  1020 
960  IF  A2 ( 1 ) =9  THEN  SAS=3 1 255: GOTO  1020 
970  IF  A2 ( 1 ) =1 1  THEN  SAS=33985 ! : GOTO  1020 
980  IF  A2 ( 1 ) =12  THEN  SAS=36889 ! : GOTO  1020 
990  IF  A2 ( 1 ) =13  THEN  SAS=4261 1 ! : GOTO  1020 
1000  IF  A2 ( 1 ) =14  THEN  SAS=50354 ! : GOTO  1020 
1010  IF  A2 ( 1 ) =15  THEN  SAS=59234 ! : GOTO  1020 
1 020  REM 

1030  REM  THIS  IS  THE  ANNUAL  SUPPORT  COSTS  PER  PERSON 
1 040  REM 


HOURS 


TEP  5 


1050  CE-4652. 05: REM  CE — CIVIL  ENGINEERING  COSTS 

1060  MAT=83 16!: REM  MAT — MATERIAL  COSTS 

1070  EQP=49 .2: REM  EQP — EQUIPMENT  COSTS 

1080  MTM=4602.  54:  REM  MTM — MATERIAL  MARKUP  COSTS 

1090  M0V=277 .31: REM  MOV — MATERIAL  OVERHEAD  COSTS 

1100  GA=2599. 59:  REM  GA— G  2<  A  COSTS 

1110  TVL=6070 ! : REM  TVL — TRAVEL  COSTS 

1120  TEL=956. 1 : REM  TEL — TELEPHONE  COSTS 

1130  REM 


FOR  SCREENING. 


NUMBERS. 


1 1 40 
1  0 
1  1 60 
1 1 70 
1  1 80 
1 1 90 
1200 
1210 
1220 
1230 
1240 

1250 

1251 

1252 

1253 
1260 
1270 
1280 
1 290 
1300 
1 3 1 0 
1 320 
1 330 
1  340 
1 350 
1360 
1  0 


REM  THE  ABOVE  FIGURES  WERE  OEiTAINED  FROM  ASD  STUDIES. 

REM 

SCPP=CE+MAT+EQP+MTM+MQV+GA+TVL+TEL  : REM  ANNUAL  SUPPORT  COST/PFPSQN 
SCFT=SCPP*SH* ( 1/1760)  jUN 

SCPI=SCF'T  *  ( 100+A7  ( 1 )  )  #  ( .  01 ) 

SCPPH=SCPP* (1/1760) 

REM 

REM  THIS  IS  THE  SCREENING  PERSONNEL  SALARY  COSTS  CALCULATION 
REM 

SCC=SH* (SAS) * (1/1760) +SCPPH*SH:  SCC1=SH* (SAS) * ( 1/1760) 

SCI=SCC* ( 1 00+ A 7 ( 1 ) ) * ( .01 ) : SCI 1=SCC1 * (10O+A7 ( 1 ) ) * (  oi ) 

SCIF=SCI 1 # (A8 (1 ) ) * (.01) 

REM  PRICE  ANALYSIS 

REM  #  $  *  *  * 

REM 

REM  THESE  ARE  THE  SALARIES  FOR  THE  EMPLOYEES  AND  ARE  STEP  5  NUMBERS. 
REM 

IF  A3 (2) =7  THEN  SES=25546: GOTO  1360 
IF  A3 (2) =9  THEN  SES=3 1 255: GOTO  1360 
IF  A3 (2) =11  THEN  SES=33985 ! : GOTO  1360 
IF  A3 (2) =12  THEN  SES=36889 1 : GOTO  1390 
IF  A3 (2) =13  THEN  SES=4261 1 ! : GOTO  1360 
IF  A3 ( 2 ) = 1 4  THEN  SES=50354 ! : GOTO  1 360 
IF  A3 (2) =15  THEN  SES=59234 ! : GOTO  1360 
REM 

REM  A1 (2) . . . PRICE  ANALYSIS  (Y/N) 
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1400  REM  A2 (2) . . . LEVEL  I  (Y/N) 

1410  REM  A3 (2) . . . AVE.  GRADE 

1420  REM  A2 (4) . . . NO.  OF  CLASS  1  DRAWINGS 

1430  IF  Al$ (2) ="N"  GOTO  1500 

1440  IF  A2S (2) =" Y"  GOTO  1460 

1450  PAH=A2 (4) #(12.5/15) +8.33: GOTO  1470 

1460  PAH=A2 (4) * (1/15) +.  667 


1470  PAC-F'AH*SES*  ( 1  / 1760)  +PAH*SCPPH: PAC1=PAH*SES*  (1/1760) 

1 480  PAC I =PAC* ( 1 00+A7 ( 1 ) ) * ( . 01 ) : PAC 1 1 =PAC 1  * ( 1 00+A7 ( 1 ) ) * ( . 0 1 ) 
1490  PACIF=PACI 1  * (A8 ( 1 )  ) * ( . 01 )  : GOTO  1510 
1 500  P AH=0 : PAC I =0 : PAC I F=0 : GOTO  1510 


.1510 
1520 
1 530 
1540 
1550 
1560 
1 570 
1 5B0 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


******  '****#******#********##*#***  ******  *  %%%%%%%%%%%%%%%%%%%% 

SOURCE  APPROVAL  MODEL 

************  *.******#j| 

A4 (2)  ...  NUMBER  OF  SOURCE  APPROVALS 
A5 (2) . . . PLANT  VISITS  FOR  SA 
A6(2) .. .NUMBER  OF  VISITORS 
A7 (2) . . . AVE.  GRADE  OF  VISITORS 


THESE  ARE  THE  SALARIES  FOR  THE  EMPLOYEES  AND  ARE  STEP  5  NUMBERS. 

1600  REM 

1610  IF  A 7 (2) =7  THEN  SAS=25546: GOTO  1680 
1620  IF  A 7 (2) =9  THEN  SAS=3 1255: GOTO  1680 
{  0  IF  A7 (2) =1 1  THEN  SAS=33985 ! : GOTO  1680 

1640  IF  A7 (2) =12  THEN  SAS=36889 ! : GOTO  1680 
1650  IF  A7 (2) =13  THEN  SAS=4261 1 ' : GOTO  1680 
1660  IF  A7  (2)  =14  THEN  SAS=50354  :  GOTO  1680 
1670  IF  A7 (2) =15  THEN  SAS=59234 ! : GOTO  16QO 
1680  REM 

1690  IF  A4 (2) =0  GOTO  1800 
1700  SAH=A4 (2) *20 


1710 
1720 
1730 
1740 
1 750 
1 760 
1 770 
1  780 
1  790 
1 800 
1810 
1  Q?f 1 

1 830 
1840 
1 850 
1860 
1870 
1  0 
1890 


SAVH=A5 (2) *A6 (2) *20 

SAC= (SAH+SAVH) *SAS* ( 1/1760) + (SAH+SAVH) * (SCPFH) 
SAC1= (SAH+SAVH) *SAS* (1/1760) 

SACI=SAC* ( 100+A7 ( 1 ) ) * ( . 01 ) 

SACI 1=SAC1 * ( 100+A7 ( 1 ) ) *(.01) 

SACIF=SACI 1  * ( A8 ( 1 )  ) *  (.01) 


REM 

REM 

REM 

REM 

REM 

RPM 

REM 

IF 

IF 

IF 

IF 

IF 

IF 


M**************#^^^^^^^^^^^^^^^^^^^  ********** 

SOURCE  DEVELPMENT 


A2  (6) 

A3 (6) . . 
A4 (6) . . 
A5 (6) . . 
A5 (6) =7 
A5 ( 6 ) =9 
A5 (6) =1 1 
AS (6) =12 
A5 (6) =13 
A  5 ( 6 ) =14 


NUMBER  OF  SOURCE  DEVELOPMENTS 
.NUMBER  OF  PLANT  VISITS 

.  NIIMRPP  ncr  WTQTTnpc; 

-AVERAGE  GRADE  OF  VISITORS 
THEN  SDS=25546: GOTO  1910 
THEN  SDS=3 1255 .-GOTO  1910 
THEM  SDS=33985  I  :  GOTO  1  9 .1  0 
THEN  SDS=36389 ! : GOTO  191 0 
THEN  SDS=426 11!: GOTO  1 9 1 0 
THEN  SD3=50354 ! : GOTO  1 9 1 0 
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'00 
>io 
) 20 
>30 
>40 
>50 
>60 
>70 
>80 
>90 
>00 
>10 
>20 
>30 
>40 
>50 
>60 
>70 
>80 
>90 
00 
10 
20 
30 
K) 
50 
60 
70 


IF  A5 (6) =15  THEN  SDS=59234 ! : GOTO  1910 
REM 

IF  A2 (6) =0  GOTO  2010 
SDH=A2 (6) *120 
SDVH=A3 (6) *A4 (6) *20 

SDC=  (SDH+SDVH)  *SDS*  ( 1  / 1 760 )  +SCF'F'H*  (SDH+SDVH) 

SDCl= (SDH+SDVH) *SDS* (1/1760) 

SDCI=SDC* ( 100+A7 ( 1 ) ) * ( .  01 ) 

SDCI 1=SDC1* (100+A7 ( 1 ) ) * ( .01 ) 

SDCIF=SDC 1 1  * ( A8 ( 1 ) )*(.0l) 

REM  ************************************************************ 

REM  SOURCE  SELECTION  MODEL 

REM  ************************************************************ 

REM  A1 (7) .. .NUMBER  OF  PROPOSALS  IN  SOURCE  SELECTION 

REM  A2 ( 7 ) . . . NO .  OF  PERSONS  ON  SOURCE  SELECTION  TEAM 

REM  A3 (7) . . . AVERAGE  GRADE 

REM  A5(l) .. .PRIME  COST  OF  CBO  ITEM(S) 

REM 

REM  THESE  ARE  THE  SALARIES  FOR  THE  EMPLOYEES  AND  ARE  STEP  5  NUMBERS. 
REM 

IF  A3 (7) =7  THEN  SSS=25546: GOTO  2170 
IF  A3 (7) =9  THEN  SSS=3 1255: GOTO  2170 
IF  A3 (7) =11  THEN  SSS=33985 ! : GOTO  2170 
IF  A3 (7) =12  THEN  SSS=36889 ! : GOTO  2170 
IF  A3 (7) =13  THEN  SSS=4261 1 ! : GOTO  2170 
IF  A3 ( 7 ) = 1 4  THEN  SSS=50354 ! : GOTO  2170 
IF  A3 (7) =15  THEN  SSS=59234 ! : GOTO  2170 
IF  A1 (7)  <  2  GOTO  2230 


80 

90 

00 

10 

20 

30 

40 

50 

60 

70 

80 

90 

00 

10 

20 

30 


SSH= (1/20000) *A5 ( 1 ) *SQR (A1 (7) ) 

SSC=SSH*SSS* ( 1/1760) +SSHX (SCPPH) 

SSC1=SSH*SSS* (1/1760) 

SSCI=SSC* ( 100+A7 ( 1 ) ) * ( . 01 > 

SSC I  1 =SSC 1  * ( 1 00+A7 < 1 > ) *  < „ 0 1 ) 

SSCIF=SSCI 1*  <A8(1>  >  X (.01) 

REM  ************************************************************ 

REM  REVERSE  ENGINEERING  MODEL 

REM  ************************************************************ 

REM  A1 (3) ...  REVERSE  ENGR.  (Y/N) 

REM  A2(3) . . .LEVEL  I  (Y/N) 

REM  A3 (3) . . . AVE.  GRADE  OF  ENGINEERS 
REM  A2 (4) ...  NUMBER  OF  DRAWINGS 
IF  A1$(3)="N"  GOTO  2440 
IF  A2$ (3) ="N"  GOTO  2380 
REM 


40  REM  LEVEL  I 
50  REM 


60  REH= ( . 1 ) *A2 (4) : GOTO  2410 
70  REM 

SO  REM  LEVEL  II 
'0  REM 
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L  .00 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 

r ■  40 

-_>50 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 


REH=4#A2 (4) 

REC=REH* (36889 ! ) * ( 1 / 1760) +REH* (SCPPH) 

REC1=REH* (36889 ! ) * ( 1/1760) 

REC I =REC* ( 1 00+A7 ( 1 ) ) * ( .  01 ) 

REC 1 1 =REC 1  *  (  1 00+A7 ( 1 ) ) # ( . 0 1 ) 

REC I F=REC 1 1  * ( A8 ( 1 ) )#(.01) 

REM  ****************************** %%*%%%%%%*%%%%%%**%%%%*%%%%%%* 

FIRST  ARTICLE  MODEL 

REM  *  *******##**#*####*#*****###***#**#*******##**# ************* 

REM  A6 (4) . . . WILL  THERE  BE  A  FRIST  ARTICLE 

REM  A7(4) .. .NUMBER  OF  PERSONNEL 

REM  A8 (4) ...  AVERAGE  GRADE  OF  FA  PERSONNEL 

REM  A2 (4) ...  NUMBER  OF  DRAWINGS 

REM 

REM  THESE  ARE  THE  SALARIES  FOR  THE  EMPLOYEES  AND  ARE  STEP  5  NUMBERS 
REM 

IF  A8 ( 4 ) =7  THEN  SFA=25546: GOTO  2630 
IF  A8 ( 4 ) =9  THEN  SFA=3 1255: GOTO  2630 
IF  A8 ( 4 ) =1 1  THEN  SFA=33985 ! : GOTO  2630 
IF  AS  (4)  =12  THEN  SFA=36889  :  GOTO  2630 
IF  A8 (4) =13  THEN  SFA=4261 1 ! : GOTO  2630 
IF  A8 ( 4 ) =1 4  THEN  SFA=50354 ! : GOTO  2630 
IF  AS (4) =15  THEN  SFA=59234 ! : GOTO  2630 
IF  A6$ (4) ="N"  GOTO  2670 
FAH=20+SQR  <A2 (4) ) 

FAC=FAH* ( SFA) t (1/1760) +FAH* (SCFPH) 

FAC1=FAH* (SFA) * (1/1760) 

FACI=FAC* ( 100+A7 ( 1 ) ) * ( . 01 ) 

FAC I  1 =FAC 1  * ( 1 00+A7 ( 1 ) ) * ( .  0 1 ) 

FACIF=FACI1* (A8(l) ) * (.01) 

REM  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*%%%%%%%% *******  ************** 

REM  THIS  IS  THE  CONTRACTING  COSTS  OF  PROCURING  THE  CBO  ITEMS 

REM  k %%%%%%% %% % 

REM 

REM  THESE  ARE  THE  SALARIES  FOR  THE  EMPLOYEES  AND  ARE  STEP  5  NUMBERS 
REM 

IF  A 1 ( 6 ) =7  THEN  SES=25546: GOTO . 2830 
IF  A 1 ( 6 ) =9  THEN  SES=3 1255: GOTO  2830 
IF  A 1  ( 6 ) = 1  1  THEN  SES=33985 ) : GOTO  2830 
IF  A 1 (6) =12  THEN  SES=36889 ! : GOTO  2830 
IF  A 1 ( 6 ) = 1 3  THEN  SES=4261 1 ! : GOTO  2830 
IF  A1  (6)  =14  THEN  SES=50354  !  :  GOTO  21330 
IF  A 1 (6) =15  THEN  SES=59234 ! : GOTO  2830 
REM 


2840  REM  CONTRACTING  FUNCTIONS  COST  ANALYSIS 
2850  REM  AS* (2) . . . SOLE  SOURCE  (Y/N) 

2860  REM 

2870  IF  A8S  (2)  =*' N"  GOTO  3080 
2880  IF  A5 ( 1 )  <  25000  GOTO  2980 
'90  IF  A5 ( 1 )  <  100000!  GOTO  2990 
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900 
?10 
920 
930 
940 
950 
960 
970 
980 
•990 
000 
0 1 0 
020 
030 
040 
050 
060 
070 
080 
090 
100 
110 
120 
130 
1 40 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 


IF  A5 ( 1 ) 

IF  A5 ( 1 ) 

IF  A5 ( 1 ) 

IF  A5  < 1 ) 

IF  A5 ( 1 ) 

IF  A5 ( 1 ) 

IF  A5 ( 1 ) 

IF  A5 ( 1 ) 

C0NH=55 

C0NH=125 

C0NH=150 

C0NH=245 

C0NH=375 

C0NH=450 

C0NH=520 

C0NH=575 

C0NH=635 

C0NH=800 


<  500000 !  GOTO  3000 
<1000000!  GOTO  3010 
<3500000!  GOTO  3020 
<10000000#  GOTO  3030 

<  25000000#  GOTO  3040 

< 1 00000000#  GOTO  3050 
<200000000#  GOTO  3060 
>200000000#  GOTO  3070 
:  GOTO  3280 
:  GOTO  3280 
:  GOTO  3280 
:  GOTO  3280 
:  GOTO  3280 
:  GOTO  3280 
:  GOTO  3280 
:  GOTO  3280 
:  GOTO  3280 
:  GOTO  3280 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


A5 ( 1 )  <  25000  GOTO  3180 
A5 ( 1 )  <  100000!  GOTO  3190 
A5 ( 1 )  <  500000!  GOTO  3200 
A5 ( 1 )  <1000000!  GOTO  3210 
A5 ( 1 )  <3500000!  GOTO  3220 
A5 ( 1 )  <10000000#  GOTO  3230 
A5 ( 1 )  <25000000#  GOTO  3240 
A5 ( 1 )  <100000000#  GOTO  3250 
A5 ( 1 )  <200000000#  GOTO  3260 
A 5 ( 1 ) =  > 20 0 0 0 0 0 0 0 #  GOTO  3270 


C0NH=55  :  GOTO  3280 
C0NH=1 25  :  GOTO  3280 
C0NH=250  :  GOTO  3280 
C0NH=335  :  GOTO  3280 
CONH= 1 725 :  GOTO  3280 
C0NH=2600:  GOTO  3280 
C0NH=2600:  GOTO  3280 


C0NH=3875:  GOTO  3280 


C0NH=4850:  GOTO  3280 
C0NH=6000:  GOTO  3280 


C0NC=SES*  (CONH)  *  < 1 / 1760) +CONH*  (SCF'PH) 
CDNC 1 =SES  * ( CONH ) * ( 1 / 1 760 ) 


\ 


CONCI=CONC*  Cl  00+ A7 ( 1 ) )*<.01) 

C0NCI1=C0NC1* (100+A7<1> ) *(.01) 

CONC I F=CONC 1 1  * ( AS ( 1 ) )*(.01> 

r*i  r*  tul  \1/  Ji  d/  \1/  lb  U#  lb  lb  Jf  Jr  \b  ib  \b  \b  \b  lb  ^  >b  lb  >b  lb  >b  vb  vb  lb  lb  ib  ib  ib  tb  ^b  ib  ib  ib  di  d#  ib  \b  ib  \b  \b  ib  ib  ^b  vV  ^  lb  ib  \L*  \L  b  %b  ib 

rNtn  /f.  it 

REM  PRE  AWARD  SURVEY 

REM  ************************************************************ 

REM  A4 (3) . - . SURVEY  (Y/N) 

REM  A5 (3) . . . ON  SITE  VISITS  (Y/N) 

REM  A6 (3) .. .NUMBER  OF  VISITS 

REM  A7 (3)  ...  NUMBER  OF  PERSONNEL  ON  VISITS 


A. 3. 8 


NUMBERS . 


’00  REM  AB (3) ...  AVERAGE  GRADE  OF  VISITORS 
.  .10  REM 

3420  REM  THESE  ARE  THE  SALARIES  FOR  THE  EMPLOYEES  AND  ARE  STEP  5 
3430  REM 

3440  IF  A8 (3) =7  THEN  SPA=25546: GOTO  3510 
3450  IF  A8 ( 3 ) =9  THEN  SPA=3 1255: GOTO  3510 
3460  IF  A8 (3) =1 1  THEN  SFA=33985 ! : GOTO  3510 
3470  IF  A8 (3) =12  THEN  SPA=36889 ! : GOTO  3510 
3480  IF  A8 (3) =13  THEN  SPA=4261 1 ! : GOTO  3510 
3490  IF  AS (3) =14  THEN  SPA=50354 ! : GOTO  3510 
3500  IF  A8  (3)  =1 5  THEN  SF’A=59234  !  :  GOTO  3510 
3510  IF  A4$(3)="N"  GOTO  3530 

3520  IF  A5$(3)="N"  THEN  GOTO  3540  ELSE  GOTO  3550 
3530  HRRS=0: GOTO  3560 
3540  HRR'S=5:  GOTO  3560 
3550  HRRS=1 1 :GOTO  3560 
3560  F'RH=A6  (3)  *A7  (3)  *  (HRRS) 

3570  PRC=PRH* (SPA) * ( 1 / 1 760) +PRH* (SCPPH) 

3571  PRC1=PRH* (SPA) * (1/1760) 

3580 ’ PRC I =PRC* ( 1 00+A7 ( 1 ) ) * ( . 0 1 ) 

3581  PRC  I  1=F‘RC1  *  ( 100+A7  ( 1 )  )*(.01) 

3590  F'R'CI  F=PRCI  *  ( 100+A8  ( 1 )  )  *  ( .  01 ) 

3600  REM  ft**#******#*#*#*##*#####*******#*#**#***#****#***#**** *#*##* 

3610  REM  GENERAL  SPO  COSTS  FOR  MANAGEMENT  OF  CBO 

3620  REM  ft*********************** Jr.****#****************************** 

30  REM  A4 (7) . . . LIFE  OF  CBO 
-->40  REM  A5(7)...AVE.  HRS /MO  ON  CBO 
3650  REM  A6 (7) . . . AVE.  SPO  MGT  GRADE 
3660  IF  A6 ( 7 ) =7  THEN  SMS=25546: GOTO  3730 
3670  IF  A6 ( 7 ) =9  THEN  SMS=3 1255: GOTO  3730 
3680  IF  A6 (7) =1 1  THEN  SMS=33985 ! : GOTO  3730 
3690  IF  A6  (7)  =12  THEN  SMS=36889  :  GOTO  3730 
3700  IF  A6 (7) =13  THEN  SMS=4261 1 ! : GOTO  3730 
3710  IF  A6 (7) =14  THEN  SMS=50354 ! : GOTO  3730 
3720  IF  A6 (7) =15  THEN  SMS=59234 ? : GOTO  3730 
3730  REM 


3740  MGH=A4 (7) * (A6 (7) ) 

3750  MGC=MGH*  (SMS)  *  (  1/1760+MGH*  (SCPPH) 
3760  MGC1=MGH#  (SMS)  *  (1/1760) 

3770  MGCI=MGC* ( 100+A7 ( 1 ) ) * ( . 01 ) 


3780  MGCI 1=MGC1 * ( 100+A7  ( 1 ) ) * ( . 01 ) 
3790  MGCI F=MGCI 1  *  ( A8 ( 1 ) ) * ( . 01 ) 


3800  REM 
3810  REM 
3820  REM 
3830  REM 
3S40  REM 
3850  REM 


####*###*#########* It##*##***#######**#*#*###**##*##*####*#*#* 

SPO  TOTAL  COSTS 

*##**###**########*########*####**##*#****.*#*#*##*  *  *  #  *  #  ,fc 

TOTAL  SPO  HOURS  FOR  CBO 


3S60  HRT=SH+PAH+SAH+SDH+SSH+REH+FAH+CONH+MGH+PRH 
3870  REM 

’"SO  REM  SUPPORT  COSTS  FOR  SPO  ACTIVITY 

.  ,90  REM 
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.-/OO  SUF'T =HRT  *  <1/1 760)  *SCPP 
!910  SUPTI=SUPT* ( 100+A7 (1 ) ) * (.01 ) 

920  SUPTI F=SUPTI * ( 100+ AS ( 1 ) )  * ( . 01 ) 

•930  REM 

•940  REM  TOTAL  SPO  COSTS  FOR  CBO 

•950  REM 

i960  SF'OC=SCC+PAC+SAC+SDC+SSC+REC+FAC+CONC+MGC+PRC 
.970  REM 

•980  REM  TOTAL  SPO  INFLATED  COSTS  FOR  CBO 

•990  REM 

000  SPOC I  =SC  I +PAC I +SAC I +SDC I +SSC I +RECI +F AC  I +CONC I +MGC I  +PF:C  I 
010  REM 

020  REM  TOTAL  SPO  INFLATED  COSTS  WITH  FRINGES  FOR  CBO 

030  REM 

•040  SPOC I F=SC I F+PAC I F+SAC I F+SDC IF+SSC I F+REC I F+FAC I F+CONC I F+MGC I F+PRC I F 
050  REM 

-060  REM  TOTAL  SPO  COSTS  INCLUDING  SUPPORT 

,070  REM 

•080  TOTC=SUF'T+SPQC 
•090  REM 

►1 00  REM  TOTAL  INFLATED  SPO  COSTS  INCLUDING  SUPPORT 

1-110  REM 

1-120  TOTCI=SUPTI+SPOCI 
1-130  REM 

40  REM  TOTAL  INFLATED  AND  FRINGES  SPO  COSTS  INCLUDING  SUPPORT 

I- 150  REM 

H60  T OT C I F =SUF'T IF+SF'OCIF 

1  1 70  TOTH=SH+PAH+SAH+SDH+SSH+REH+FAH+CONH+MGH+PRH 

1 1 80  TOTC=SCC+PAC+SAC+SDC+SSC+REC+FAC+CONC+MGC+PRC 

1 1 90  TOT I =SC I +P AC I +SAC I +SDCI+SSC I +REC I +FAC I +CONC I +MGC I +PRC I 

1-200  TOT  I  F=SC  I  F+PAC  I  F+SAC  I  F+SDC  I F+SSC I  F+REC  I  F+FAC  I  F+CONC  I  F+MGC  I  F+PRC  I F 

1210  SCCT=SCI+SCItr 

1220  PACT =F'AC  I  +F'AC  I F 

1230  SACT=SACI+SACIF 

1-240  SDCT=SDCI  +SDCIF 

1-250  SSCT=SSCI+SSCIF 

1-260  RECT =REC  I +REC I F 

1-270  FACT=FACI+FACIF 

1280  CONCT=CONCI+CONCIF 

1290  MGCT =MGCI +MGC IF 

1300  PRCT=PRCI+PRCIF 

1310  SPOT=SPOC I +SPOCI F 

1320  REM 

1330  TOTTT=SCCT+PACT+SACT+SDCT+SSCT+RECT +FACT+CONCT +MGCT+PRCT 

1340  REM  *********************************************** c* ************ 

1350  REM  ADMINISTRATION  AND  AUDIT 

1360  REM  ************************************************************ 

1370  REM  A6 ( 1 ) . . . NEW  CONTRACTOR  CBO  PRICE 
1330  IF  A6 ( 1 )  <  300000!  GOTO  4400 
70  ADAC= ( . 025 ) * AS ( 1 ) : GOTO  44 1 0 
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400 

4410 

4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
'’640 
j  50 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
' 90 


ADAC=0 

ADACI=ADAC* ( 100+A7 ( 1 ) ) * ( . 01 ) 

ADAC I F=ADAC I  * ( 100+AS ( 1 ) ) * (. 01 > 

REM  *****'^*************************t**t*t*HHt*t**iliitiliit***t**.*t*t* 

_  M  GENERAL  AND  ADMIN  COSTS 

REM  *  *  *  *********  ‘jc#**^*******************^*^********:*’******^***^^ 

REM  FROM  ASD  ESTIMATES  $2599.59  PER  PERSON  PER  YEAR 

REM  **************************** t*****************************^ 

htn  SECURITY  COSTS 

REM  ********************'****************^***t***t***t*t****t**** 

REM  A6 (6) .. .NUMBER  OF  EMPLOYEES 

REM  A7 (6) . . . CBD  HIGHEST  CLASSIFICATION 

REM  A8 (6) . . . NO.  REQUIRING  CLEARANCES 

IF  A7 $ ( 6 ) = " UNCLAS "  GOTO  4570 

IF  A7$ (6) ="CONF"  GOTO  4580 

IF  A7$ (6) ="SEC"  GOTO  4590 

IF  A7$ (6) =" TSEC"  GOTO  4600 

SEC=0: GOTO  4620 

SEC=A6 (6) * 10+A7 (6) *50: GOTO  4620 
SEC=A6 (6) *20+A7 (6) *200: GOTO  4620 
SEC=A6(6) *20+A7 (6) *500: GOTO  4620 

REM  ****t**********************t******ttt*t***ttt*t**t*tt'***t*tt 
RtM  EEO  SUPPORT 

REM  *******************************  **********  t  ******  *.*.%*.*****.*%*. 

REM  A1 (5) . . . EEO  SUPPORT  (Y/N) 

REM  A6 (6) . . . NO  OF  EMPLOYEES 
IF  A 1  $ ( 5 ) = " N "  GOTO  4680 
EE0C=A6 ( 6 ) *  1 0 : GOTO  4700 
EE0C=0 

REM  *********  ********************* 

KfcM  SOCIO-ECONOMIC  SUPPORT 

^^/if*******************************************^******^**:*)**)*^ 

REM  A2 (5) . . . SOC-EC  SUPPORT  (Y/N) 


REM  A6 (6) . . . NO  OF  EMPLOYEES 
IF  A2$ (5) ="N"  GOTO  4760 
S0CEC=A6 (6) *  10: GOTO  4780 
S0CEC=0 

REM  ************************ 

REri  WARANTEE  COSTS 

***************'********************************X.X**X*%.**mX* 
REM  Ao.  (5)  ...  WARRANTEE  COSTS 

WARC=A3 (5) 

REM  ********************************tt**t**tttt***tt******t*t*t* 

hEM  TERMINATION  COSTS 

pfm  UfJ?************** ****************  ************************* 

RFM  fli  *************************************************** 

REM  A4 i5> ...  TERMINATION  COSTS 

TERMC=A4 (5) 

REM  ”***«««**«*««**«««***«»,»««,*«««***„,***«»«*» 

NEW  EQUIPMENT  COSTS 


REM 
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.  900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
50 1 0 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5 1 00 
5110 
5120 
5 1 30 
'  1 40 
1 50 
5160 
5170 
5180 
5 1 90 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
390 


REM  *  *  **********************************;(;;,(## ******************** 

REM  A7 (5) - EQUIP/TOOL  CDSTS 

ETC=A7 (5) 

R  EM  ********************************* 

REM  FACILITY  MODIFICATION  COSTS 

REM  ********  ******  *************  Jit**#  ******  ****  **********  ********* 

REM  A8 (5) - FACILITY  MOD  COSTS 

FMODC=AS (5) 


REM 

REM 

REM 

REM 

REM 

REM 

IF 


************************************************************ 

TRANSPORTATION 

*************************** *****  ******** ***** ** ************* 
A5(5) - MILES  TO  TRAVEL 

A3 (4) ...  WEIGHT  OF  CBO  ITEM(S) 

A5(4) - VOLUME  OF  CBO  ITEM(S) 

A3 (4)  >  1000  GOTO  5060 


TRANC= ( ( 1 . 1-. 0083636* A3 (4) ) *A3 (4) *A5 (5) ) / ( 100) : GOTO  5080 
TRANC=-108. 688+ (9. 269399* (A3 (4) /100 )  )  +  < . 082285 *A5 (5) ) 

REM  *************************************************** ********* 

REJV|  SOLICITATION  COSTS 

REM  *^t******************  **********  ********************  ********** 

REM  A7 (7) - SOLICITATIONS  SENT  OUT 

S0LC=10*A7 (7) 

REM  ************************************************ ************ 

REr1  NEW  CONTRACTOR  PRICE 

REM  *************  *******  *****************************  *********** 

REM  A6 ( 1 ) - NEW  CONTRACTOR' S  COST 

NC0NC=A6 ( 1 ) 

REM  ******************  ********************************** ********* 

REM  OFFSETTING  COST  COMPUTATION 

REM  ************************************************************ 

REM  A4 (4) . . . TOTAL  SPO  BUDGET 

REM  A5 ( 4 ) - TOTAL  SPO  TIME  IN  MONTHS 

REM  A6 ( 1 ) - NEW  CONTRACTOR' S  COST 

REM  A8  (7)  .  .  .  total.  NO  OF  SPO  PERSONNEL 
SPQPH= (A8 (7) * A5 (4) *146.  66) 

SPQPHC=AA (4) /SPOPH 

SPOCST=SPOPHC*HRT 
CBOPHC= ( A5 ( 1 ) -A6 ( 1 ) ) 

CBFC= (SPOCST-CBOPHC) : REM  CBO  COSTS  LOST  OPPORTUNITY  COST 

TCB0C=5P0C+SEC+EE0C+S0CEC+WARC+TERMC+ETC+FMQDC+ADAC+TRANC+SQLC 

TC‘BFC=SPOT+SEC+EEOC+SOCEC+WARC+TERMC+ETC+FMODC+ADAC+TRANC+SOLC 

SAVEC= ( A5 ( 1 ) -A6 ( 1 ) ) -TCBOC 
SAVEF= ( A5 ( 1 ) -A6 ( 1 ) ) — TCBFC 
THEOC=SAVEC-CBFC 
THEOF=SAVEF-CBFC 
GOTO  6540 

REM  ********  *  ************************************************  * *  * 

REM  SCREEN  OUTPUT  OF  COMPUTATIONS 

REM  *  *  *  *  *  **************************************************  ^  jjf  *  *  * 

CLS: LOCATE  2,35 
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5400 

5410 

.420 

5430 

5440 

5450 

5460 

5470 

5490 

5490 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

,670 

5680 

5690 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

se  i  o 
5320 
5830 
5840 
5850 
5860 
5870 
5880 
5890 


PRINT 

PRINT 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 


" SUMMARY  DATA " : LOCATE 
"HOURS  COST 

6, 1 : PRINT 
10, 1: PRINT 
12, 1 : PRINT 
16, 1 : PRINT 
20 , 1 : PR I NT 
6, 24: PRINT 
8, 24: PRINT 
10, 24: PRINT  USING 
12, 24: PRINT  USING 
14, 24: PRINT  USING 
16, 24: PRINT  USING 
18, 24: PRINT  USING 
20, 24: PRINT  USING 
22, 24: PRINT  USING 
6,35: PR I NT  US I NG 
8, 35: PRINT  USING 


4,25 
I  NFL  A 

SCREEN  I IMG  "  :  LOCATE 
"SOURCE  APR" 

"SOURCE  DEV": LOCATE 
"REVERSE  ENG": LOCATE  18, 
"CONTRACTING" : LOCATE  22, 
USING  "######"• INT (SH) 
USING  "######"; INT (PAH) 


FRINGE  TOTAL' 

8,1: PR INT  " PR I CE  ANAL " 

14,1: PRINT  "SOURCE  SEL1 
'FIRST  ART1 


PRINT 

PRINT 


"GEN  SPO" 


10,35 : PR INT  US I NG 
12, 35: PRINT  USING 
14, 35: PRINT  USING 
16, 35: PRINT  USING 
18, 35: PRINT  USING 
20, 35: PRINT  USING 
22, 35s PRINT  USING 
6, 47: PRINT  USING 


"######" 
"######" 
"######" 
"######" 
"######" 
"######" 
"######" 
"######" ; 

"######"; 

"######" 

"ft#####" 

"######" 

"######" 
"######" 
"######" 
"######•• 


8, 47: PRINT  USING  "#####o' 


10, 47: PRINT 
12, 47: PRINT 
14, 47: PRINT 
16, 47: PRINT 
18, 47: PRINT 
20, 47: PRINT 
22, 47: PRINT 
6 , 60 : PR I NT 


8, 60: PRINT  USING 
10, 60: PRINT  USING 
1 2 , 60 : PR I NT  US I NG 
14, 60: PRINT  USING 
16, 60: PRINT  USING 
18, 60: PRINT  USING 
20, 60: PRINT  USING 
22, 60: PRINT  USING 
6, 72: PRINT  USING 
8,  72: PRINT  USING 


USING  "ft#####" 

USING  "######» 

USING  "######" 

USING  "######•■ 

USING  "######" 

USING  "######» 

USING  "######» 

USING  "######"; INT (SCIF) 

"######"; I NT ( PACIF) 
"######" ; INT (SACIF) 


I  NT  (S  AH) 

; INT (SDH) 

; INT(SSH) 

; INT(REH) 

; INT(FAH) 

; INT(CONH) 

; INT(MGH) 
INT (SCC) 
INT (PAC) 

; INT (SAC) 

; INT(SDC) 

; INT (SSC) 

; INT(REC) 

; INT (FAC) 
INT(CONC) 

; INT(MGC) 
INT ( SC I ) 

INT (PACI ) 

; I NT ( SAC  I ) 

: INT (SDCI ) 

; INT (SSCI ) 

; INT(RECI) 

; INT (FAC I ) 

; INT (CONCI ) 
INT(MGCI) 


10, 72: PRINT 
12, 72: PRINT 
14,72: PRINT 
16,72: PRINT 
18, 72: PRINT  USING 


USING 

USING 

USING 

USING 


"######"; I NT (SDCIF) 
"######" ; INT (SSCIF) 
"######"; INT (RECIF) 
”######" ; INT (FAC IF) 
"######"; INT ( CONCI F) 
"####4*#M:  INT  (MGCIF) 
"######" ; INT (SCOT) 
"######"; INT (PACT) 

; INT (SACT) 


INT(SDCT) 


"#####« 

••###### 

"######"; INT(SSCT) 
"######"; INT(RECT) 
;  INT  (FACT) 
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j  -/OO 

5910 

5920 

5930 

5940 

5950 

5960 

5970 

5980 

5990 

3 000 

bO  1 0 

3 020 

b030 

b040 

b050 

j060 

s070 

:080 

>090 

3  100 
>110 
>120 
>130 
40 

>  1 50 

>  1  60 

>  1 70 

>  1 80 
>  1  90 
>200 
>210 
>220 
>250 
>260 
.270 
>280 
.290 
.300 
■310 
.320 
.330 
.340 
.350 
■360 
.370 
•330 
390 


USING  "######"; I NT (CONCT) 
USING  "######"; INT(MGCT) 
"PRESS  ANY  KEY  TO  CONTINUE" 
THEN  GOTO  5930 


LOCATE  20, 72: PRINT 
LOCATE  22, 72: PRINT 
LOCATE  25, 25: PRINT 
A$=INKEY$: IF  A$="" 

CLS: LOCATE  2,35 

PRINT  "SUNNARY  DATA" : LOCATE  4,25 

PRINT  "HOURS  COST  I NFL A  FRINGE  TOTAL" 

6,1: PRINT  "PRE-AWD  SVY"  : LOCATE  8,1: PR I NT  "SPO  TOTALS" 
"SECURITY" : LOCATE  12,1:PRINT  "EEO  SUPPORT" 
"SOC-ECON  CST" : LOCATE  16,1:PRINT  "WARANTEE  CST" 
"TERNIN  CST" : LOCATE  20, 1: PRINT  "NEW  EQUIP" 

"FAC  NOD  CST" 


USING  "######" 
USING  "4#####" 
USING  " 44#### " 
USING  '■######" 


LOCATE 

LOCATE  10,1: PRINT 
LOCATE  14, 1: PRINT 
LOCATE  18,1: PRINT 
LOCATE  22, 1 : PRINT 
LOCATE  6, 24: PRINT 
LOCATE  6, 35: PRINT 
LOCATE  8, 24: PRINT 
LOCATE  8, 35: PRINT 
LOCATE  10, 35: PRINT 
LOCATE  12, 35: PRINT 
LOCATE  14, 35: PRINT 
LOCATE  16, 35: PRINT 
LOCATE  18, 35: PRINT 
LOCATE  20, 35: PRINT 
LOCATE  22, 35: PRINT 
LOCATE  6, 47: PRINT 
LOCATE  8,  47 .-PRINT 
LOCATE  6, 60: PRINT 
LOCATE  8, 60: PRINT 
LOCATE  6, 72: PRINT 
LOCATE  8, 72: PRINT 
LOCATE  10, 72: PRINT 
LOCATE  12, 72: PRINT 
LOCATE  14, 72: PRINT 
LOCATE  16, 72: PRINT 
LOCATE  18, 72: PRINT 
LOCATE  20, 72: PRINT 
LOCATE  22, 72: PRINT 
LOCATE  25, 25: PRINT 
A'.fi=INKEY$:  IF  A$="M 
Cl.S:  LOCATE  2,35 
PRINT  "SUNNARY  DATA": LOCATE 


USING 

USING 

USING 

USING 

USING 

USING 

USING 

USING 

USING 

USING 

USING 

USING 

USING 

USING 

USING 

USING 

USING 

USING 

USING 

USING 

"PRESS 


"######" 

••######» 

••######•• 

••######•• 

"######" 

"######" 

»######■• 

"######"; 
'•######»; 
”######" ; 
"######" ; 
"######" ; 
"######" ; 
'•######'■ 
"######" 
"######" 
"######" 
••######•• 
”######" 
"######" 
ANY  KEY 


THEN  GOTO  6290 


I NT ( PRH ) 

I NT (PRC) 

I NT ( HRT ) 

I NT (SPOC) 

; INT (SEC) 

; INT (EEOC) 

; INT (SOCEC) 

; INT (WARC) 

;  I  NT  (TERliC) 

; INT (ETC) 

; INT (FMODC) 
INT (PRC I) 

INT (SPOC I ) 

INT (PRCIF) 

INT (SPOCIF) 
INT (TOTIF) 

INT (TOTTT) 

; INT (SEC) 

; INT (EEOC) 

; INT (SOCEC) 

; INT (WARC) 

; INT (TERMC) 

; INT  (ETC) 

; INT (FMODC) 
TO  CONTINUE' 


PRINT  ' 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 


4, 


6,  1 : PRINT 
10,1: PRINT 
14, 1 : PRINT 
13,  1  .-PRINT 
6,35: PR I NT 
6, 72: PRINT 
8, 35: PRINT 


COST 

"ADMIN 


I  NFL  A 

AUD"  .-LOCATE 


8, 


FRINGE 
1 : PRINT 


TOTAL" 

’TRANSPORTATION" 


"SOLICITATION" : LOCATE  12, 1: PRINT  "TOTAL  CBO  COST" 
"SAVINGS" : LOCATE  16,1: PRINT  "LOST  OP  COST" 

"THEO  SAVINGS" 

USING  "######"; INT (ADAC) 

US I NG  " ###### " ; I NT ( ADAC ) 

USING  "###«••##";  INT  (TRANC) 
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30 
>4 1 0 
j  420 
a  430 
s440 
>450 
>460 
>470 
j4S0 
3490 
j  500 
>510 
>520 
>530 
>540 
>550 
>560 
>570 
>580 
>590 
>600 
>610 
>620 
>630 
•  640 
50 
>660 
>670 
>680 
>690 
>700 
>710 
>720 
>730 
>740 
>750 
>760 
>770 
>780 
>790 
>800 
>1310 
>820 
>830 
>340 

>  8  5  O 
>860 

>  3  7  ( I) 
>380 
990 


I NT (SAVEF) 

INT(CBFC) 

INT(CBFC) 

I NT (THEOC) 
I NT (THEOF) 


LOCATE  8,  72:  PRINT  USING  "######••;  INT  (TRANC) 

LOCATE  10, 35:  PRINT  USING  "######'';  I  NT  (SOLC) 

LOCATE  1U,72:F'RINT  USING  "######";  INT  (SOLO 
LOCATE  12, 35: PRINT  USING  "tttttttt##" ; INT (TCBOO 
LOCATE  12,72:PRINT  USING  "######" ; I NT (TCBFC) 

LOCATE  14, 35: PRINT  USING  "######"; INT(SAVEC) 

LOCATE  14, 72:  PRINT  USING  "######•' 

LOCATE  16, 35: PRINT  USING  "######" 

LOCATE  16, 72:  PRINT  USING  "######•• 

LOCATE  IB, 35: PRINT  USING  '•######'• 

LOCATE  IS, 72: PRINT  USING  "######" 

LOCATE  25, 25: PRINT  "PRESS  ANY  KEY  TO  CONTINUE" 

A$=INKEY«: IF  A$=" "  THEN  GOTO  6520  ELSE  GOTO  6530 
GOTO  6820 

REM  THIS  IS  THE  MODEL  RESULTS  SECTION 

CLS 

REM 

LOCATE  10,10 

LOCATE  11,10  >*■***<  *************** 

PRINT  "* 

LOCATE  12,10 

r^I  "L  ,.D0  Y0U  WISH  TO  VIEW  THE  RESULTS  ON  SCREEN  OR  PRINTER? 

I-  U  L,  f-i  I  c.  1  o  ,  1  (.) 

PRINT  "# 

LOCATE  14,10 

loc^e"!s!io  SELECT  SCREEN  isl  0R  PRINTER  (F> 

G$=INKEY$: IF  G$=""  THEN  GOTO  6700  ELSE  GOTO  6710 
IF  G$="S"  THEN  GOTO  6730  ELSE  GOTO  6720 
IF  G$="P"  THEN  GOTO  6740  ELSE  GOTO  6690 
GQSUB  6760: GOTO  6820 
GOSUB  6790: GOTO  6990 

REM  THIS  IS  THE  MODEL  RESULTS  ON  THE  SCREEN 
CLS 

GOTO  5390 
RETURN 
GOTO  7180 

REM  THUS  IS  THE  PRINTER  OUTPUT  OF  THE  MODEL  RESULTS  SECTION 
RETURN 

CLS 

REM 

LOCATE  10,10 

^e“Ju”*”‘***"***M”***”**"””‘*”**”‘***”***‘**«****«*‘ 

PRINT  "* 

LOCATE  12,10 

DO  YOU  WISH  TO  VIEW  THE  RESULTS  ON  THE  PR  INTER?  (Y/N) 


PRINT  "# 
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6900  LOCATE  13,  10 

6910  PRINT  "*  % 

6920  LOCATE  14,10 

6930  PRINT  "  *****  *  %  %  %%%%%%%%.%%%%  *  *************  *  *  %  *  *  %  %  *  *  *  %  *  *  %  *  ******  *  *  *  *  *  *  *-*  %  * 
6940  LOCATE  12, 70: PRINT  ">  " 

6950  H$=INKEY$:  IF  H$=""  THEN  GOTO  6950  ELSE  GOTO  6960 

6960  IF  H*="Y"  THEN  GOTO  6980  ELSE  GOTO  6970 

6970  IF  H$="N"  THEN  GOTO  7480  ELSE  GOTO  6940 

6980  GOSUB  6790: GOTO  7480 

6990  REM 

7000  CLS 

7010  LOCATE  10,10 

7(.)2u  PRINT  "  ***** **********************, (t  ************* ************************ 
7030  LOCATE  11,10 

7040  PRINT  "*  % 

7050  LOCATE  12,10 

7060  PRINT  "*  DO  YOU  WISH  TO  VIEW  THE  RESULTS  ON  THE  SCREEN?  (Y/N)  * 

7070  LOCATE  13,10 

7080  PRINT  "************************************  *********  ********  ************ 
7090  LOCATE  12, 69:  PRINT  ">  •• 

7100  P$=INKEY$: IF  P$=" "  THEN  GOTO  7100  ELSE  GOTO  7110 
7110  IF  P$="Y"  THEN  GOTO  7130  El.SE  GOTO  7120 
7120  IF  p$="N"  THEN  GOTO  7480  ElSE  GOTO  7090 
JO  GOSUB  6760: GOTO  7480 
7140  END 


7150  REM 
7160  REM 
7170  REM 
7180  LF’RINT 
**" : LPRINT : 
TE$: LPRINT 
7190  LPRINT 
7200  LPRINT 
7210  LPRINT 
)  INT(SCIF) 
7220 
(50) 


%%%%*%%%*%%**%%%%%*%%%**%%%% %**%*%%%%%%%*%%%%%**%*%**%%%*%%% 

MODEL  RESULTS  TO  PRINTER 

%%%%*%%%%%%**%%%%%%%% %%%%%%%%%%%% ********** ************ ***** 

II  tlr  >i>  d.  Ui  <1.  U.  .a,  ^  j.  ...  ...  ...  ...  ...  ...  ..  ...  . 


LPRINT  NAMNOS" 


SUMMARY  OF  RESULTS 


HOURS 


COST 


INFLA 


FRINGE 


TOTA 


TAB (40)  I  NT (SCI)  TAD 


7230 

( 50 ) 

7240 

(50) 

7250 

(50) 

7260 

B  ( 50 ) 

7270 

B  ( 50 ) 

"7  '*”> i 

/  ..**  o  U 


"SCREENING"  TAB (20)  INT(SH)  TAB (30)  INT(SCC) 

TAB ( 60 )  I NT ( SCCT ) : LPR I NT 
"PRICE  ANAL"  TAB (20)  I NT (PAH) 

I NT (PACT) : LPR I NT 
INT (SAH) 

: LPRINT 

INT (SDH)  TAB (30)  INT(SDC)  TAB (40)  INT(SDCI) 


LPRINT 
INT(PACIF)  TAB (60) 
LPRINT  "SOURCE  APR" 
INT (SAC IF)  TAB (60) 
LPRINT  "SOURCE  DEV" 
INT (SDCIF)  TAB (60) 
LPRINT  "SOURCE  SEL" 
INT (SSCIF)  TAB (60) 


TAB (20) 

I NT (S ACT) 

TAB (20) 

INT(SDCT) : LPR I  NT 
TAB (20)  INT(SSH) 
INT(SSCT) 


TAB  (30)  INT(PAC)  TAB  (40)  INT(F'ACI) 
TAB (30)  INT (SAC)  TAB (40)  INT (SAC  I) 


LPRINT 
INT (REH) 


LPRINT  "REVERSE  ENG"  TAB (20) 

I NT ( REC I F )  TAB ( 60  >  I NT ( RECT )  : LPR I NT 
LPRINT  "FIRST  ARTIC"  TAB (20)  INT(FAH) 
INT (FACIF)  TAB (60)  I NT (FACT ): LPR I NT 
LPRINT  "CONTRACTING"  TAB (20)  INT(CONH) 


TAB (30)  INT(SSC)  TAB (40)  INT(SSCI) 
TAB ( 30 )  I NT ( REC )  TAB ( 40 )  INT ( REC I ) 


.B  ( 50 )  I  NT  ( CONC I F )  TAB  ( 60 )  I  NT  ( CONCT )  :  LPR  I  NT 
7290  LPRINT  "GENERAL  SPG"  TAB (20)  INT(MGH)  TAB (30) 
B ( 50 )  I NT ( MGC I F )  TAB ( 60 )  I NT ( MGCT > : LPR I NT 


TAB (30)  I  NT (FAC)  TAB (40)  INT (FAC I) 
T  AB ( 30 )  I NT ( CONC )  T AB ( 40  >  I NT ( COI 


.INT  (MGC)  TAB  (40)  INT  ( MGC  I 
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1 


300  LPRINT  "PRE-AWD  SVY"  TAB (20)  INT(PRH)  TAB (30)  I NT (PRC)  TAB (40)  I NT (PRC I)  7 
(5u>  I NT (PRCIF)  TAB ( 60 )  INT (PRCT) : LPRINT 

-•lO  LFRINT  bF’C)  TOTALS”  TAB  (20)  INT  (TOTH)  TAB  (30)  INT(TOTC)  TAB  (40)  INT(TOTI) 
B(50)  INT(TOTIF)  TAB(60)  INT (TOTTT) : LPRINT 


320 
330 
340 
350 
360 
370 
390 
390 
700 
7  1 0 
720 
730 
740 
750 
760 


770 

730 

790 

'0 

-lO 

720 

530 

540 

550 

560 

570 

580 

590 

,00 

>10 

>20 

>30 

>40 

>50 

>60 

.70 

.30 

.90 


LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 


"SECURITY  "  TAB (30)  INT (SEC)  TAB (60)  INT (SEC) : LPRINT 


" EEO  SUPPORT" 
"SOC-ECON  CST 1 
"WARANTEE  CST" 
"TERM IN  CST  " 
"NEW  EQUIP  " 
"FAC  MOD  CST" 
"ADMIN  AUD" 


TAB (30) 
TAB (30) 
TAB (30) 
TAB (30) 
TAB (30) 
TAB (30) 
TAB (30) 


INT (EEOC)  TAB (60)  INT (EEOC) : LPRINT 
INT ( SOCEC)  TAB (60)  INT (SOCEC) : LPRINT 
I NT ( WARC )  TAB ( 60 )  I NT ( WARC ) : LPR I NT 
INT (TERMC)  TAB (60)  INT (TERMC) : LPRINT 
INT (ETC)  TAB (60)  INT (ETC) : LPRINT 
INT(FMODC)  TAB (60)  INT (FMODC) : LPRINT 
INT (AD AC)  TAB (60)  INT (ADAC) : LPRINT 
"TRANSPORTATION"  TAB (30)  INT (TRANC)  TAB(60)  INT (TRANC) : LPRINT 
"SOLICITATION"  TAB (30)  INT (SOLC)  TAB (60)  INT (SOLC) : LPRINT 
"TOTAL  CBO  COST"  TAB(30>  INT(TCBOC)  TAB(60)  INT (TCBFC) : LPRINT 
"SAVINGS  "  TAB (30)  INT(SAVEC)  TAB(60)  INT (SAVEF) : LPRINT 
"LOST  OPT  COST"  TAB(30>  INT(CBFC)  TAB(60)  INT (CBFC) : LPRINT 
"THEO  SAVINGS"  TAB(30)  INT (THEOC)  TAB(60)  INT (THEOF) : LPRINT 
“*************t***t***t*********t  **************  jit******  ****;)(*•*  ****** 


GOTO  6800 

REM  ***************************************** tttxt %%%%%%%%%%%%%% 

REM  MODELS  MENU  SELECTION 

REM  ************************  ***************; *  #  *************%%%%■%% 

REM 

LOCATE  6,10 

PRINT  “  *******************************************  xKxxmxxtxx  %%%%%% 
LOCATE  7^10 


PRINT  "* 
LOCATE  8, 10 
PRINT  "* 
LOCATE  9,10 
PRINT  "* 
LOCATE  10, 10 
PRINT  "* 
LOCATE  11,10 
PRINT  "* 
LOCATE  12,10 
PRINT  "* 
LOCATE  13,10 
PRINT  "* 
LOCATE  14,10 


PRESS  H  IF  YOU  WISH  TO  GO  TO  THE  HELP  MENU... 


PRESS  E  IF  YOU  WISH  TO  ENTER  NEW  DATA. . . . 


PRESS  C  IF  YOU  WISH  TO  DO  ANOTHER  CALCULATION. 


*  " 
$  “ 
*  " 
#  " 
*" 
*" 
%  " 
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7 7 00 
7710 
7 720 
7730 
7740 
7750 
7  760 
7770 
7  780 
'790 
'800 
'810 
'820 
'830 
'840 
'850 
'860 
'870 
'880 
'890 
900 
910 
920 
Q30 
0 

950 


FRINT  "*  PRESS  V  IF  YOU  WISH  TO  VIEW  INPUT  DATA.... 

LOCATE  15,10 
PRINT  "* 

LOCATE  16,10 

PRINT  "*  PRESS  S  IF  YOU  WISH  TO  STOP... 

LOCATE  17,10 
PRINT  "* 

LOCATE  18,10 

fn^jL"****  *******  *****  ******  ******************************** 

LOCATE  16, 66: PRINT  ">  " 


* 

% 

* 

if 


%%%%%%%%%*.% 


B$= INKEYS: IF  BS=""  THEN  GOTO  7800  ELSE  GOTO  7810 

IF  B$="H"  THEN  GOTO  7860  ELSE  GOTO  7820 

IF  B$="E"  THEN  GOTO  7880  ELSE  GOTO  7830 

IF  BS="C"  THEN  GOTO  7900  ELSE  GOTO  7840 

IF  B$=" V"  THEN  GOTO  7920  ELSE  GOTO  7850 

IF  B$="S"  THEN  GOTO  7940  ELSE  GOTO  7480 

CLS:LOCATE  15,25:PRINT  "THE  HELP  PROGRAM  IS  LOADING." 

RUN  "BEGINY" 

CLS: LOCATE  15, 25: PRINT  "THE  DATA  ENTRY  PROGRAM  IS  LOADING  " 
RUN  "ENTERY" 

CLS 

GOTO  50 

CLS: LOCATE  15,25: PRINT  "THE  VIEW  INPUT  PROGRAM  IS  LOADING." 
RUN  "DAT I NY" 

STOP 

END 
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A.  COMPUTER  PROGRAMS 


A. 4  DAT INN 


A. 4.1. 


:>  REM  THIS  IS  THE  INPUT  DATA  PROGRAM  FOR  THE  PRINTER 
:>  REM 


REM . . . DAT  INN.  BAS . 

:>  DIM  A 1  ( 9 )  ,  A2  ( 9 )  ,  A3  ( 9 )  ,  A4  ( 9 )  ,  A5  <  9 )  ,  A6  <  9 ) , A7 ( 9 ) ,  AS  ( 9 ) 

D  DIM  A1T$(9) ,A2T$i9) , A3T*(9) , A4T*<9) , A5T$(9) , A6T$<9) , A7T$(9) , A3T$<9) 

:>  CLS:  LOCATE  10,10 

I)  PRINT  "*******  ******  IK*#****##**##  Jit*****  ******  ***********  *********  *******" 
:>  LOCATE  11,10 
'.)  PRINT  "* 

:>0  LOCATE  12,10 

10  PRINT  "*  SELECT  SCREEN  (S)  OR  PRINTER  (P)  * 

20  LOCATE  13,10 

50  PRINT  "*  t 

10  LOCATE  14,10 

50  PRINT  "*  FOR  INPUT  DATA  * 

sO  LOCATE  15,10 

*0  PRINT  "*  t 

10  LOCATE  16,10 

?0  PRINT  "*  SELECT  (C)  TO  BEGIN  CALCULATIONS  * 

>0  LOCATE  17,10 

0  PRINT  "*  t 

20  LOCATE  18,10 

■0  PRINT  "****** **t*********%****X**t****Mt*tX*****t*.*X***%%**xx*.x*x ****** 

1-0  F$=INKEY$:  IF  F'$=""  THEN  GOTO  240  ELSE  GOTO  250 

30  IF  F$="S"  GOTO  290 

>0  IF  F*="p"  GOTO  1930 

*0  IF  F$="C"  GOTO  2930 

<0  GOTO  60 


'0  CLOSE  #1 
>0  REM 
0  REM 
20  KEY  OFF 
>0  CLS 

10  LOCATE  3,10 

30  PRINT  "*****************************************, *  *******  *******  ********* 
>0  LOCATE  4,  10 

'0  PRINT  "*'  % 

)0  LOCATE  5,10 


PRINT  "*  THE  FOLLOWING  FILES  ARE  AVAILABLE  * 

>0  LOCATE  6,10 

.0  PRINT  "*  % 

20  LOCATE  7,10 

30  PRINT  "********************** ******************************* #**###*###*# 
0  LOCATE  9, 5: FILES  " * . DAT" 

30  LOCATE  18, 15: PRINT  "NOTE:  ENTER  A  4  LETTERS  FOLLOWED  BY  1  NUMBER" 

>0  LOCATE  25,  15:  PR  I  NT  " 


*0  LOCATE  19, 22: PRINT 
0  LOCATE  2 1 , 20 : PR  I NT 
’0  LOCAT E  .15,59:  COLOR 


"FOLLOWED  BY  .DAT  (PLUS  CARRIAGE 
"EXAMPLES:  PR0D4.DAT  EXAMS. DAT 
0.7:  PR  I N  T  “  "  :  COLOR  7  ,-0 


RETURN) 

TESTS 


DAT  " 
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5U0 
510 
•  520 

530 
540 
550 
560 
570 
530 
590 
600 
610 
620 
630 
640 
650 
660 
670 
630 
6°0 
1  ;> 
7 1 0 
720 
730 
740 
750 
760 
770 
780 
790 
*  BOO 
810 
820 
830 
840 
850 
860 
870 
880 
890 


LOCATE  15, 5s  BEEP 

INPUT  "WHAT  PROGRAM  DO  YOU  WISH  TO  RUN  (PROGRAM  NAME/NUMBER) NAMNO* 
GOSUB  1840 

REM  THIS  IS  THE  BEGINNING  OF  THE  QUESTIONING 

CLS  . 

LOCATE  2, 30:  PRINT  "PROGRAM . "NAMNO* 

LOCATE  4,  10 

PRINT  "1.  HOW  MANY  AF  PERSONNEL  CONDUCTED  SCREENING7..  "Al$(l) 

LOCATE  5, 10  ‘  . 

PRINT  "2.  WHAT  IS  THEIR  AVERAGE  GS  GRADE7 .  uaoSP) 

LOCATE  6,10  . 

PRINT  "3.  HOW  MANY  WEEKS  DID  THE  SCREENING  REQUIRE? .  "A7*(i) 

LOCATE  7,10  . 

PRINT  "4.  SCREENING  REQUIRED  WHAT  PERCENT  OF  THEIR  TIMF7  "A4T-(1) 

LOCATE  8,10  . 

PRINT  "5.  WHAT  WAS  THE  PRIME’S  PRICE  FOR  CBO  ITEMS7..  "AS* Ml 

LOCATE  9,10  . 

PRINT  "6.  WHAT  IS  THE  NEW  CONTRACTOR’S  PRICE  FOR  THESE  I TEMS7. . . " A6$  ( 1 ) 
LOCATE-  10,10 

PRINT  "7.  WHAT  IS  THE  INFLATION  RATE  (SEE  HELP  SCREEN)7.  "A7$(l) 

LOCATE  11,10 

PRINT  "8^  WHAT  IS  THE  FRINGE  BENEFIT  RATE  (SEE  HELP  SCREEN) ?...." A8$ ( 1 ) 
LOCATE  13, 10 

PRINT  "1.  WILL  YOU  CONDUCT  A  PRICE  ANALYSIS  (Y/N)7...  "Al*(^) 

LOCATE  14,10  . 

PRINT  "2.  WILL  THIS  BE  A  LEVEL  I  ANALYSIS  (Y/N)7 .  "A7$('?) 

LOCATE  15,10  .  “  “ 

PRINT  "3.  WHAT  WILL  BE  THE  AVERAGE  GRADE  OF  THE  ANALYSTS  7 _  "A7$r-) 

LOCATE  16,10  “ 

PRINT  "4.  HOW  MANY  SOURCE  APPROVALS  WILL  BE  REQUIRED  7  "A^S^) 

LOCATE  17,10  .  ^ 

PRINT  "5.  HOW  MANY  PLANT  VISITS  FOR  THIS  SOURCE  APP.7..  "A4$(7) 

LOCATE  18,10  . 

PRINT  "6.  HOW  MANY  AF  PERSONNEL  WILL  MAKE  THESE  VISITS7  "A6$(':'' 

LOCATE  19,10  . 

PRINT  "7.  WHAT  IS  THE  AVERAGE  GRADE  OF  THESE  VISITORS7  "A7£('"1) 

LOCATE  20,10  . .  u' 

PRINT  "8.  IS  THIS  A  SOLE  SOURCE  PROCUREMENT?  (Y/N) . "AS$(7) 

LOCATE  24, 25: PRINT  "PRESS  ANY  KEY  TO  CONTINUE" 

A*=INKEY*: IF  A$=" " THEN  GOTO  890  ELSE  GOTO  900 


A. 4. 3. 


"NAMNG'f 


"A4*<3> 

.  "AST  (3) 


"A3T (4) 


0  CLS 

1 0  LOCATE  2 , 30 : PR I NT  " PROGRAM . . 

20  LOCATE  4,10 

30  PRINT  "1.  WILL  REVERSE  ENGINEERING  BE  ATTEMPTED*?  <Y/N)  "AITC7) 

40  LOCATE  5,10  .  k 

50  PRINT  "2.  WILL  IT  BE  A  LEVEL  I  EFFORT*?  (Y/N) _ 

60  LOCATE  6,10  .  ^ 

70  PRINT  "3.  THE  AVERAGE  GRADE  OF  THESE  ENGINEERS  WILL  BE  "at* ( ~ \  * 

30  LOCATE  7,10  .  H"*v-'* 

?0  PRINT  "4.  WILL  A  PRE-AWARD  SURVEY  BE  CONDUCTED*?  (Y/N) 

300  LOCATE  3,10 

DIO  PRINT  "5.  WILL  THIS  SURVEY  REQUIRE  ON-SITE  VISITS'?  'Y/N) 

320  LOCATE  9, 10  '  '  * 

330  PRINT  "6.  HOW  MANY  VISITS  WILL  BE  REQUIRED? .  "  AA-S  <"* ) 

340  LOCATE  10,10  . 

:’50  PRINT  "7.  HOW  MANY  PERSONNEL  ON  THE  AF  VISIT  TEAM*?  "A7<&r^ 

360  LOCATE  11,10  . 

370  PRINT  "8.  WHAT  IS  THE  AVERAGE  GS  GRADE  OF  THIS  TEAM*?..  "AS*r?> 

380  LOCATE  13,10  . 

390  PRINT  "1.  IS  THIS  ANALYSIS  FOR  MORE  THAN  ONE  ITEM*?  (Y/N).  ”A1$<4) 

100  LOCATE  14,10  ' 

110  PRINT  ”2.  HOW  MANY  CLASS  1  (8.5  BY  11)  DRAWINGS  IN  THE  PACKAGE*?  1  " A2$  (4) 

L20  LOCATE  15,10 

L ^<-)  PRINT  "3.  WHAT  IS  THE  WEIGHT  OF  THE  ITEM'S)*? 

40  LOCATE  16,10 

50  PRINT  "4.  WHAT  IS  THE  TOTAL  SPO  BUDGET*? .  "Ad<w^ 

.60  LUCATE  17,10  .  (4' 

.70  F'RTNT  "5.  WHO  MANY  MONTHS  ARE  AVAILABLE  TO  SPND  THIS  BUDGET*?  "A54'4) 
80  LOCATE  10,10  . 

90  PRINT  "6.  WILL  THERE  BE  A  FIRST  ARTICLE  QUALIFICATION?  ( Y/N  )*?..."  A6$  ( 4 ) 
)00  LOCATE  19,10  ' 

.'10  PRINT  "7.  HOW  MANY  AF  PERS  WILL  BE  INVOLVED  IN  THIS  QUA!  '?  "A-;e  ^  ■ 

(20  LOCATE  20,10  .  ‘ 

(30  PRINT  "8.  WHAT  WILL  BE  THE  GS  GRADE  O^  THIS  TEAM*?..  "AS$(4> 

'40  LOCATE  24, 25: PRINT  "PRESS  ANY  KEY  TO  CONTINUE" 

50  A$=INKEY$:  IF  A$=""THEN  GOTO  1250  ELSE  GOTO  1*?60 
•60  CLS 

.70  LOCATE  2,  30:  PRINT  "PROGRAM . "NAMNO* 

’80  LOCATE  4,10 

90  PRINT  "1.  WILL  THE  NEW  CONTRACTOR  REQUIRE  EEO  SUPPORT*?  (Y/N) _ "Al$(5) 

00  LOCATE  5,10  J 

10  PRINT  "2.  WILL  HE  REQUIRE  SOCIO-ECONOMIC  SUPPORT*?  (Y/N)  .  "A-4w^ 

20  LOCATE  6,10  . 

30  PRINT  "3.  WHAT  WILL  WARRANTEES  COST*? .  ma-s.c, 

40  LOCATE  7,10  .  , 

50  PRINT  "4.  WHAT  WILL  BE  THE  PARTIAL  TERMINATION  COST  TO  THE  AF  *?  "A4T(5' 
60  LOCATE  8,10  '* 

Z°.  ^0w  MANY  MILES  FROM  THE  NEW  SOURCE  TO  THE  PRIME? . "A5$(5)» 

80  LOCATE  9,  1(.) 

90  PRINT  "6.  HOW  MANY  TECHNICAL  REVIEWS  WILL  BE  REQUIRED? . "AST  (?) 
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1400  LOCATE  10,10 

1410  PRINT  "7.  WHAT  IS  THE  COST  OF  NEW  EQUIPMENT/TOOLS? . "A7$(5> 

1420  LOCATE  11,10 

,  1430  PRINT  "8.  WHAT  IS  THE  COST  OF  FACILITY  MODIFICATIONS? . "AS*(5) 

1440  LOCATE  13,10 

1450  PRINT  "1.  WHAT  IS  THE  AVE.  GRADE  OF  THE  CONTRACTING  TEAM? . "Alf><6) 

*  1460  LOCATE  14,10 

1470  PRINT  "2.  HOW  MANY  SOURCES  WILL  BE  DEVELOPED? . .  . ,"A2*<6) 

1480  LOCATE  15,  10 

1490  PRINT  "3.  HOW  MANY  PLANT  VISITS  FOR  SOURCE  DEVELOPMENT? . "A3* (6) 

1500  LOCATE  16,10 

1510  PRINT  "4.  HOW  MANY  AF  VISITORS  ON  EACH  TRIP? . "A4$<6) 

1520  LOCATE  17,10 

1530  PRINT  "5.  WHAT  WILL  BE  THEIR  AVERAGE  GRADE? . "A5*<6) 

1540  LOCATE  18,10 

1550  PRINT  "6.  HOW  MANY  EMPLOYEES  AT  THE  NEW  CONTRACTOR’S  FACILITY?. . "A6* (6) 
1560  LOCATE  19,10 

1570  PRINT  "7.  WHAT  IS  THE  HIGHEST  CLASSIFICATION  OF  CBO  ITEMS? . "A7$<6) 

1580  LOCATE  20, 10 

1590  PRINT  "8.  THE  NO  OF  NEW  CONTR  PERS  REQUIRING  CLEARANCES  IS . "A8*<6) 

1600  LOCATE  24, 25: PRINT  "PRESS  ANY  KEY  TO  CONTINUE" 

1610  A*= INKEY*: IF  A*=" "THEN  GOTO  1610  ELSE  GOTO  1620 
1620  ClS 

1  ''30  LOCATE  2,  30:  PRINT  "PROGRAM . "NAMNO* 

40  LOCATE  4,10 

1650  PRINT  "1.  HOW  MANY  PROPOSALS  IN  SOURCE  SELECTION? . "Al$<7> 

1660  LOCATE  5,10 

1670  PRINT  "2.  HOW  MANY  AF  PEOPLE  IN  THE  SOURCE  SELECTION? . "A2*(7) 

1680  LOCATE  6,10  ’ 

1690  PRINT  "3.  WHAT  IS  THEIR  AVERAGE  GRADE? . "A3* (7) 

1700  LOCATE  7,10 

1710  PRINT  "4.  MONTHS  OF  SPO  CBO  MGT  RESPONSIBILITY  IS . "A4$<7) 

1720  LOCATE  8,10 

1730  PRINT  "5.  AVE.  HRS.  PER  WEEK  IN  GEN.  CBO  MANAGEMENT  IS . "A5*<7) 

1740  LOCATE  9,10 

1750  PRINT  "6.  AVE.  GRADE  OF  THE  SPO  CBO  MANAGEMENT  TEAM  IS . "A6$ (7) 

1760  LOCATE  10,10 

1770  PRINT  "7.  HOW  MANY  SOLICITATIONS  WILL  BE  SENT  OUT? . "A7$<7) 

1780  LOCATE  11,10 

1790  PRINT  "8.  WHAT  IS  THE  AVERAGE  NO.  OF  PERSONNEL  IN  THE  SPO"' . "AS*  (7) 

1800  LOCATE  24, 25: PRINT  "PRESS  ANY  KEY  TO  CONTINUE" 

1810  A$= INKEY*: IF  A*=" " THEN  GOTO  1810  ELSE  GOTO  1820 
1820  CLS 

4  1830  GOTO  1910 

1840  REM  THIS  SUBROUTINE  ENTERS  PREVIOUS  DATA  INTO  THE  MODEL 
1850  OPEN  NAMNO*  FOR  INPUT  AS  #1 
„  I960  FOR  I  =  1  TO  7 

1 870  I NPUT  # 1 , A1 *  < I ) , A2* ( I )  , A3* ( I ) , A4* ( I )  , A5* ( I )  , A6* ( I )  , A7* ( I )  , AS*  < I > 

3  °80  NEXT 
.  ?0  CLOSE  #1 
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I < 00  RETURN 
1910  CLOSE  #1 
1920  GOTO  60 
1930  REM 
1940  REM 
1950  CLOSE  #1 


1960 
1970 
1 980 
1 990 
2000 
20 1 0 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2 1 00 
21  10 
2120 
2 1 30 
/'  40 
Lx  50 
2160 
2170 
2180 


REM 

KEY  OFF 
CLS 

LOCATE  3..  10 
PRINT 

LOCATE  4, 10 
PRINT  " * 

LOCATE  5, 10 

PRINT  "*  THE  FOLLOWING  FILES  ARE  AVAILABLE  * 

LOCATE  6,10 

PRINT  "*  * 

LOCATE  7,10 

"  **********##*##*##**#*##*#####*###*#:){#*######*  #**$$* 

LOCATE  9,  5:  FILES  "  * .  DAT •• 

LOCATE  18, 15: PRINT  "NOTE:  ENTER  A  4  LETTERS  FOLLOWED  BY  1  NUMBER" 

LOCATE  25, 15: PRINT  " 

LOCA T  E  19, 22: PRINT  "FOLLOWED  BY  .DAT  (PLUS  CARRIAGE  RETURN)" 

LOCATE  21, 20: PRINT  "EXAMPLES:  PR0D4.DAT  EXAM8.DAT  TEST5.DAT" 

LOCATE  15, 59: COLOR  0,7: PRINT”  ": COLOR  7,0 

LOCATE  15, 5: BEEP 

INPUT  "WHAT  PROGRAM  DO  YOU  WISH  TO  RUN  (PROGRAM  NAME/NUMBER) " ; NAMNO* 
GOSUB  2840 

REM  THIS  IS  THE  BEGINNING  OF  THE  QUESTIONING  . 


2190  CLS 
2200  LPRINT 
2210  LPRINT 
2220  LPRINT 
2230  LPRINT 
2240  LPRINT 
2250  LPRINT 
2260  LPRINT 
2270  LPRINT 
2280  LPRINT 
2290  LPRINT 
2300  LPRINT 
2310  LPRINT 
2320  LPRINT 
2330  LPRINT 
2340  LPRINT 
2350  LPRINT 
2360  LPRINT 
2370  LPRINT 
'  10  LPRINT 

2-90  LPRINT 


DATE*"  . . "NAMNO*:  LPRINT 

"1.  HOW  MANY  AF  PERSONNEL  CONDUCTED  SCREENING? . "A1*(D 

"2.  WHAT  IS  THEIR  AVERAGE  GS  GRADE? . . . "A2*(D 

"3.  HOW  MANY  WEEKS  DID  THE  SCREENING  REQUIRE? . "A3*(l) 

"4.  SCREENING  REQUIRED  WHAT  PERCENT  OF  THEIR  TIMS'7 . "A4$(l) 

"5.  WHAT  WAS  THE  PRIME’S  PRICE  FOR  CBO  ITEMS'7 . "A5*(l) 

"6.  WHAT  IS  THE  NEW  CONTRACTOR’S  PRICE  FOR  THE  ITEMS? . "A6$(D 

"7.  WHAT  IS  THE  INFLATION  RATE  (SEE  HELP  SCREEN)? . "A7*(l) 

"8.  WHAT  IS  THE  FRINGE  BENEFIT  RATE  (SEE  HELP  SCREEN) ?.... "A8S < 1 ) 


"1. 


II  O 

h  ~r 

"4. 


ii  cr 


"7. 


WILL  YOU  CONDUCT  A  PRICE  ANALYSIS  (Y/N)? . 

WILL  THIS  BE  A  LEVEL  I  ANALYSIS  (Y/N)? . 

WHAT  WILL  BE  THE  AVERAGE  GRADE  OF  THE  ANALYSTS  ?. 

HOW  MANY  SOURCE  APPROVALS  WILL  BE  REQUIRED  ? . 

HOW  MANY  PLANT  VISITS  FOR  THIS  SOURCE  APP.? . 

HOW  MANY  AF  PERSONNEL  WILL  MAKE  THESE  VISITS?.... 

WHAT  IS  THE  AVERAGE  GRADE  OF  THESE  VISITORS? . 

IS  THIS  A  SOLE  SOURCE  PROCUREMENT?  (Y/N) . 


.  .  .  "  A 1  $  (2) 
. . . "A2$ (2) 
. . . "A3* (2) 
. . . "A4*‘ 2) 
. . - "A5* (2) 
. . . " A6$ (2) 
.  .  .  "  A7**  2 ) 
. . . "AS* (2) 


"1.  WILL  REVERSE  ENGINEERING  BE  ATTEMPTED'7  (Y/N) 


"  A  1  *  ( 3  > 
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LPRINT 

"6 

LPRINT 

"7 

LPRINT 

"8 

GOTO  2910 

WILL  IT  BE  A  LEVEL  I  EFFORT?  (Y/N) . "A2S(3) 

THE  AVERAGE  GRADE  OF  THESE  ENGINEERS  WILL  BE  . MA3S(3) 


WILL  A  PRE-AWARD  SURVEY  BE  CONDUCTED?  (Y/N) . "A4S(3) 

WILL  THIS  SURVEY  REQUIRE  ON-SITE  VISITS?  (Y/N) . "ASS (3) 

HOW  MANY  VISITS  WILL  BE  REQUIRED? . MA6$(3) 

HOW  MANY  PERSONNEL  ON  THE  AF  VISIT  TEAM? . "A7$(3) 

WHAT  IS  THE  AVERAGE  GS  GRADE  OF  THIS  TEAM? . MA8$(3) 


IS  THIS  ANALYSIS  FOR  MORE  THAN  ONE  ITEM?  (Y/N) . "Al$(4) 

HOW  MANY  CLASS  1  (8.5  BY  11)  DRAWINGS  IN  THE  PACKAGE?. " A2S ( 4 ) 

WHAT  IS  THE  WEIGHT  OF  THE  ITEM(S)? . "A3«<4) 

WHAT  IS  THE  TOTAL  SF’O  BUDGET7 . "A4S(4) 

HOW  MANY  MONTHS  ARE  AVAILABLE  TO  SPEND  THIS  BUDGET?. .. "A5$ ( 4) 
WILL  THERE  BE  A  FIRST  ARTICLE  QUALIFICATION?  ( Y/N) ?.  .  . " A6S (4) 

HOW  MANY  AF  PERS  WILL  BE  INVOLVED  IN  THIS  QUAL? . "A7$(4) 

WHAT  WILL  BE  THE  GS  GRADE  OF  THIS  TEAM? . "A8S(4> 

WILL  THE  NEW  CONTRACTOR  REQUIRE  EEO  SUPPORT?  (Y/N) . . . . "A1S (5) 

WILL  HE  REQUIRE  SOCIO-ECONOMIC  SUPPORT?  (Y/N) . "A2$ (5) 

WHAT  WILL  WARRANTEES  COST? . .  "A3$(5) 

WHAT  WILL  BE  THE  PARTIAL  TERMINATION  COST  TO  THE  AF  ?."A4S(5) 

HOW  MANY  MILES  FROM  THE  NEW  SOURCE  TO  THE  PRIME? . "A5S<5) 

HOW  MANY  TECHNICAL  REVIEWS  WILL  BE  REQUIRED? . "A6$(5) 

WHAT  IS  THE  COST  OF  NEW  EQUIPMENT /TOOLS? . MA7$(5) 

WHAT  IS  THE  COST  OF  FACILITY  MODIFICATIONS? . "ASS  (5) 

WHAT  IS  THE  AVE.  GRADE  OF  THE  CONTRACTING  TEAM? . "Al$(6) 

HOW  MANY  SOURCES  WILL  BE  DEVELOPED? . "A2S(6) 

HOW  MANY  PLANT  VISITS  FOR  SOURCE  DEVELOPMENT? . "A3$(6) 

HOW  MANY  AF  VISITORS  ON  EACH  TRIP? . "A4$(6) 

WHAT  WILL  BE  THEIR  AVERAGE  GRADE? . "A5S<6) 

HOW  MANY  EMPLOYEES  AT  THE  NEW  CONTRACTOR'S  FACILITY?. . "A6S (6) 

WHAT  IS  THE  HIGHEST  CLASSIFICATION  OF  CBO  ITEMS? . "A7S(6> 

THE  NO  OF  NEW  CONTR  PERS  REQUIRING  CLEARANCES  IS . "A8$(6) 

HOW  MANY  PROPOSALS  IN  SOURCE  SELECTION? . "A IS  (7) 

HOW  MANY  AF  PEOPLE  IN  THE  SOURCE  SELECTION? . "A2$(7) 

WHAT  IS  THEIR  AVERAGE  GRADE? . "A3S(7) 

MONTHS  OF  SPO  CBO  MGT  RESPONSIBILITY  IS . "A4$<7) 

AVE.  HRS.  PER  WEEK  IN  GEN.  CBO  MANAGEMENT  IS . "A5S<7) 

AVE.  GRADE  OF  THE  SPO  CBO  MANAGEMENT  TEAM  IS . "A6$(7) 

HOW  MANY  SOLICITATIONS  WILL  BE  SENT  OUT? . "A7*(7) 

WHAT  IS  THE  AVE.  NO.  OF  PERSONNEL  IN  THE  SPO? . "A8$(7) 


REM  THIS  SUBROUTINE  ENTERS  PREVIOUS  DATA  INTO  THE  MODEL 
OPEN  NAMNOS  FOR  INPUT  AS  #1 
FOR  I  =  1  TO  7 

INPUT  #1 , A1S ( I ) , A2S ( I ) ,  A3S ( I ) , A4S ( I ) , ASS ( I ) , A6S ( I ) , A7S ( I ) , ASS ( I ) 

NEXT 

CLOSE  #1 
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H  UIUII 

60953 


900  RETURN 
910  CLOSE  #1 
920  GOTO  60 
930  REM 

940  CLS: LOCATE  15,25 

950  PRINT  "THE  CALCULATIONS  PROGRAM  IS  LOADING" 
960  RUN  "CALCUY" 

970  END 
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